<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="local-6989586621679093365"><span id="local-6989586621679093366"><span id="local-6989586621679093367"></span></span></span><span class="hs-pragma">{-# LANGUAGE GADTs, DeriveGeneric, StandaloneDeriving, ScopedTypeVariables,
    GeneralizedNewtypeDeriving, ExistentialQuantification, RecordWildCards #-}</span><span>
</span><span id="line-3"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-orphans #-}</span><span>
</span><span id="line-4"></span><span>
</span><span id="line-5"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- Remote GHCi message types and serialization.</span><span>
</span><span id="line-7"></span><span class="hs-comment">--</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- For details on Remote GHCi, see Note [Remote GHCi] in</span><span>
</span><span id="line-9"></span><span class="hs-comment">-- compiler/GHC/Runtime/Interpreter.hs.</span><span>
</span><span id="line-10"></span><span class="hs-comment">--</span><span>
</span><span id="line-11"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHCi.Message</span><span>
</span><span id="line-12"></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier">Message</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#Msg"><span class="hs-identifier">Msg</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-13"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier">THMessage</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMsg"><span class="hs-identifier">THMsg</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-14"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#QResult"><span class="hs-identifier">QResult</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-15"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalStatus_"><span class="hs-identifier">EvalStatus_</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier">EvalStatus</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier">EvalResult</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier">EvalOpts</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier">EvalExpr</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-16"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier">SerializableException</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-17"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#toSerializableException"><span class="hs-identifier">toSerializableException</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#fromSerializableException"><span class="hs-identifier">fromSerializableException</span></a></span><span>
</span><span id="line-18"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier">THResult</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#THResultType"><span class="hs-identifier">THResultType</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-19"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier">ResumeContext</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-20"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier">QState</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-21"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#getMessage"><span class="hs-identifier">getMessage</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#putMessage"><span class="hs-identifier">putMessage</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#getTHMessage"><span class="hs-identifier">getTHMessage</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#putTHMessage"><span class="hs-identifier">putTHMessage</span></a></span><span>
</span><span id="line-22"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier">Pipe</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#remoteCall"><span class="hs-identifier">remoteCall</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#remoteTHCall"><span class="hs-identifier">remoteTHCall</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#readPipe"><span class="hs-identifier">readPipe</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHCi.Message.html#writePipe"><span class="hs-identifier">writePipe</span></a></span><span>
</span><span id="line-23"></span><span>  </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-24"></span><span>
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-comment">-- See note [Why do we import Prelude here?]</span><span>
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html"><span class="hs-identifier">GHCi.RemoteTypes</span></a></span><span>
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHCi.FFI.html"><span class="hs-identifier">GHCi.FFI</span></a></span><span>
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHCi.TH.Binary.html"><span class="hs-identifier">GHCi.TH.Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- For Binary instances</span><span>
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHCi.BreakArray.html"><span class="hs-identifier">GHCi.BreakArray</span></a></span><span>
</span><span id="line-30"></span><span>
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../ghc-boot/src/GHC.LanguageExtensions.html#"><span class="hs-identifier">GHC.LanguageExtensions</span></a></span><span>
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.html#"><span class="hs-identifier">GHC.Exts.Heap</span></a></span><span>
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../ghc-boot/src/GHC.ForeignSrcLang.html#"><span class="hs-identifier">GHC.ForeignSrcLang</span></a></span><span>
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.Fingerprint.html#"><span class="hs-identifier">GHC.Fingerprint</span></a></span><span>
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Concurrent.html#"><span class="hs-identifier">Control.Concurrent</span></a></span><span>
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Exception.html#"><span class="hs-identifier">Control.Exception</span></a></span><span>
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.html#"><span class="hs-identifier">Data.Binary</span></a></span><span>
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#"><span class="hs-identifier">Data.Binary.Get</span></a></span><span>
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Put.html#"><span class="hs-identifier">Data.Binary.Put</span></a></span><span>
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.html#"><span class="hs-identifier">Data.ByteString</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier">ByteString</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.html#"><span class="hs-identifier">Data.ByteString</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Lazy.html#"><span class="hs-identifier">Data.ByteString.Lazy</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">LB</span></span><span>
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Dynamic.html#"><span class="hs-identifier">Data.Dynamic</span></a></span><span>
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.html#"><span class="hs-identifier">Data.Typeable</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Typeable.html#TypeRep"><span class="hs-identifier">TypeRep</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.IORef.html#"><span class="hs-identifier">Data.IORef</span></a></span><span>
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../containers/src/Data.Map.html#"><span class="hs-identifier">Data.Map</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../containers/src/Data.Map.Internal.html#Map"><span class="hs-identifier">Map</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Foreign.html#"><span class="hs-identifier">Foreign</span></a></span><span>
</span><span id="line-48"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.Generics.html#"><span class="hs-identifier">GHC.Generics</span></a></span><span>
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.Stack.CCS.html#"><span class="hs-identifier">GHC.Stack.CCS</span></a></span><span>
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.html#"><span class="hs-identifier">Language.Haskell.TH</span></a></span><span>        </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TH</span></span><span>
</span><span id="line-51"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#"><span class="hs-identifier">Language.Haskell.TH.Syntax</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TH</span></span><span>
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/System.Exit.html#"><span class="hs-identifier">System.Exit</span></a></span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/System.IO.html#"><span class="hs-identifier">System.IO</span></a></span><span>
</span><span id="line-54"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/System.IO.Error.html#"><span class="hs-identifier">System.IO.Error</span></a></span><span>
</span><span id="line-55"></span><span>
</span><span id="line-56"></span><span class="hs-comment">-- -----------------------------------------------------------------------------</span><span>
</span><span id="line-57"></span><span class="hs-comment">-- The RPC protocol between GHC and the interactive server</span><span>
</span><span id="line-58"></span><span>
</span><span id="line-59"></span><span class="hs-comment">-- | A @Message a@ is a message that returns a value of type @a@.</span><span>
</span><span id="line-60"></span><span class="hs-comment">-- These are requests sent from GHC to the server.</span><span>
</span><span id="line-61"></span><span class="hs-keyword">data</span><span> </span><span id="Message"><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-var">Message</span></a></span></span><span> </span><span id="local-6989586621679092787"><span class="annot"><a href="#local-6989586621679092787"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-62"></span><span>  </span><span class="hs-comment">-- | Exit the iserv process</span><span>
</span><span id="line-63"></span><span>  </span><span id="Shutdown"><span class="annot"><a href="GHCi.Message.html#Shutdown"><span class="hs-identifier hs-var">Shutdown</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-64"></span><span>  </span><span id="RtsRevertCAFs"><span class="annot"><a href="GHCi.Message.html#RtsRevertCAFs"><span class="hs-identifier hs-var">RtsRevertCAFs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-65"></span><span>
</span><span id="line-66"></span><span>  </span><span class="hs-comment">-- RTS Linker -------------------------------------------</span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span>  </span><span class="hs-comment">-- These all invoke the corresponding functions in the RTS Linker API.</span><span>
</span><span id="line-69"></span><span>  </span><span id="InitLinker"><span class="annot"><a href="GHCi.Message.html#InitLinker"><span class="hs-identifier hs-var">InitLinker</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-70"></span><span>  </span><span id="LookupSymbol"><span class="annot"><a href="GHCi.Message.html#LookupSymbol"><span class="hs-identifier hs-var">LookupSymbol</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-71"></span><span>  </span><span id="LookupClosure"><span class="annot"><a href="GHCi.Message.html#LookupClosure"><span class="hs-identifier hs-var">LookupClosure</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-72"></span><span>  </span><span id="LoadDLL"><span class="annot"><a href="GHCi.Message.html#LoadDLL"><span class="hs-identifier hs-var">LoadDLL</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-73"></span><span>  </span><span id="LoadArchive"><span class="annot"><a href="GHCi.Message.html#LoadArchive"><span class="hs-identifier hs-var">LoadArchive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- error?</span><span>
</span><span id="line-74"></span><span>  </span><span id="LoadObj"><span class="annot"><a href="GHCi.Message.html#LoadObj"><span class="hs-identifier hs-var">LoadObj</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- error?</span><span>
</span><span id="line-75"></span><span>  </span><span id="UnloadObj"><span class="annot"><a href="GHCi.Message.html#UnloadObj"><span class="hs-identifier hs-var">UnloadObj</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- error?</span><span>
</span><span id="line-76"></span><span>  </span><span id="AddLibrarySearchPath"><span class="annot"><a href="GHCi.Message.html#AddLibrarySearchPath"><span class="hs-identifier hs-var">AddLibrarySearchPath</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>  </span><span id="RemoveLibrarySearchPath"><span class="annot"><a href="GHCi.Message.html#RemoveLibrarySearchPath"><span class="hs-identifier hs-var">RemoveLibrarySearchPath</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-78"></span><span>  </span><span id="ResolveObjs"><span class="annot"><a href="GHCi.Message.html#ResolveObjs"><span class="hs-identifier hs-var">ResolveObjs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-79"></span><span>  </span><span id="FindSystemLibrary"><span class="annot"><a href="GHCi.Message.html#FindSystemLibrary"><span class="hs-identifier hs-var">FindSystemLibrary</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-80"></span><span>
</span><span id="line-81"></span><span>  </span><span class="hs-comment">-- Interpreter -------------------------------------------</span><span>
</span><span id="line-82"></span><span>
</span><span id="line-83"></span><span>  </span><span class="hs-comment">-- | Create a set of BCO objects, and return HValueRefs to them</span><span>
</span><span id="line-84"></span><span>  </span><span class="hs-comment">-- Note: Each ByteString contains a Binary-encoded [ResolvedBCO], not</span><span>
</span><span id="line-85"></span><span>  </span><span class="hs-comment">-- a ResolvedBCO. The list is to allow us to serialise the ResolvedBCOs</span><span>
</span><span id="line-86"></span><span>  </span><span class="hs-comment">-- in parallel. See @createBCOs@ in compiler/GHC/Runtime/Interpreter.hs.</span><span>
</span><span id="line-87"></span><span>  </span><span id="CreateBCOs"><span class="annot"><a href="GHCi.Message.html#CreateBCOs"><span class="hs-identifier hs-var">CreateBCOs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Lazy.Internal.html#ByteString"><span class="hs-identifier hs-type">LB.ByteString</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-88"></span><span>
</span><span id="line-89"></span><span>  </span><span class="hs-comment">-- | Release 'HValueRef's</span><span>
</span><span id="line-90"></span><span>  </span><span id="FreeHValueRefs"><span class="annot"><a href="GHCi.Message.html#FreeHValueRefs"><span class="hs-identifier hs-var">FreeHValueRefs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-91"></span><span>
</span><span id="line-92"></span><span>  </span><span class="hs-comment">-- | Add entries to the Static Pointer Table</span><span>
</span><span id="line-93"></span><span>  </span><span id="AddSptEntry"><span class="annot"><a href="GHCi.Message.html#AddSptEntry"><span class="hs-identifier hs-var">AddSptEntry</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Fingerprint.Type.html#Fingerprint"><span class="hs-identifier hs-type">Fingerprint</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-94"></span><span>
</span><span id="line-95"></span><span>  </span><span class="hs-comment">-- | Malloc some data and return a 'RemotePtr' to it</span><span>
</span><span id="line-96"></span><span>  </span><span id="MallocData"><span class="annot"><a href="GHCi.Message.html#MallocData"><span class="hs-identifier hs-var">MallocData</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-97"></span><span>  </span><span id="MallocStrings"><span class="annot"><a href="GHCi.Message.html#MallocStrings"><span class="hs-identifier hs-var">MallocStrings</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-98"></span><span>
</span><span id="line-99"></span><span>  </span><span class="hs-comment">-- | Calls 'GHCi.FFI.prepareForeignCall'</span><span>
</span><span id="line-100"></span><span>  </span><span id="PrepFFI"><span class="annot"><a href="GHCi.Message.html#PrepFFI"><span class="hs-identifier hs-var">PrepFFI</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.FFI.html#FFIConv"><span class="hs-identifier hs-type">FFIConv</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.FFI.html#FFIType"><span class="hs-identifier hs-type">FFIType</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.FFI.html#FFIType"><span class="hs-identifier hs-type">FFIType</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="GHCi.FFI.html#C_ffi_cif"><span class="hs-identifier hs-type">C_ffi_cif</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-101"></span><span>
</span><span id="line-102"></span><span>  </span><span class="hs-comment">-- | Free data previously created by 'PrepFFI'</span><span>
</span><span id="line-103"></span><span>  </span><span id="FreeFFI"><span class="annot"><a href="GHCi.Message.html#FreeFFI"><span class="hs-identifier hs-var">FreeFFI</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="GHCi.FFI.html#C_ffi_cif"><span class="hs-identifier hs-type">C_ffi_cif</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-104"></span><span>
</span><span id="line-105"></span><span>  </span><span class="hs-comment">-- | Create an info table for a constructor</span><span>
</span><span id="line-106"></span><span>  </span><span id="MkConInfoTable"><span class="annot"><a href="GHCi.Message.html#MkConInfoTable"><span class="hs-identifier hs-var">MkConInfoTable</span></a></span></span><span>
</span><span id="line-107"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>    </span><span class="hs-comment">-- TABLES_NEXT_TO_CODE</span><span>
</span><span id="line-108"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>     </span><span class="hs-comment">-- ptr words</span><span>
</span><span id="line-109"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>     </span><span class="hs-comment">-- non-ptr words</span><span>
</span><span id="line-110"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>     </span><span class="hs-comment">-- constr tag</span><span>
</span><span id="line-111"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>     </span><span class="hs-comment">-- pointer tag</span><span>
</span><span id="line-112"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span> </span><span class="hs-comment">-- constructor desccription</span><span>
</span><span id="line-113"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.InfoTable.Types.html#StgInfoTable"><span class="hs-identifier hs-type">StgInfoTable</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-114"></span><span>
</span><span id="line-115"></span><span>  </span><span class="hs-comment">-- | Evaluate a statement</span><span>
</span><span id="line-116"></span><span>  </span><span id="EvalStmt"><span class="annot"><a href="GHCi.Message.html#EvalStmt"><span class="hs-identifier hs-var">EvalStmt</span></a></span></span><span>
</span><span id="line-117"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier hs-type">EvalOpts</span></a></span><span>
</span><span id="line-118"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier hs-type">EvalExpr</span></a></span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-comment">{- IO [a] -}</span><span>
</span><span id="line-119"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-type">EvalStatus</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- [a] -}</span><span>
</span><span id="line-120"></span><span>
</span><span id="line-121"></span><span>  </span><span class="hs-comment">-- | Resume evaluation of a statement after a breakpoint</span><span>
</span><span id="line-122"></span><span>  </span><span id="ResumeStmt"><span class="annot"><a href="GHCi.Message.html#ResumeStmt"><span class="hs-identifier hs-var">ResumeStmt</span></a></span></span><span>
</span><span id="line-123"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier hs-type">EvalOpts</span></a></span><span>
</span><span id="line-124"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-type">ResumeContext</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-125"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-type">EvalStatus</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-126"></span><span>
</span><span id="line-127"></span><span>  </span><span class="hs-comment">-- | Abandon evaluation of a statement after a breakpoint</span><span>
</span><span id="line-128"></span><span>  </span><span id="AbandonStmt"><span class="annot"><a href="GHCi.Message.html#AbandonStmt"><span class="hs-identifier hs-var">AbandonStmt</span></a></span></span><span>
</span><span id="line-129"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-type">ResumeContext</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-130"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-131"></span><span>
</span><span id="line-132"></span><span>  </span><span class="hs-comment">-- | Evaluate something of type @IO String@</span><span>
</span><span id="line-133"></span><span>  </span><span id="EvalString"><span class="annot"><a href="GHCi.Message.html#EvalString"><span class="hs-identifier hs-var">EvalString</span></a></span></span><span>
</span><span id="line-134"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-comment">{- IO String -}</span><span>
</span><span id="line-135"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-type">EvalResult</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-136"></span><span>
</span><span id="line-137"></span><span>  </span><span class="hs-comment">-- | Evaluate something of type @String -&gt; IO String@</span><span>
</span><span id="line-138"></span><span>  </span><span id="EvalStringToString"><span class="annot"><a href="GHCi.Message.html#EvalStringToString"><span class="hs-identifier hs-var">EvalStringToString</span></a></span></span><span>
</span><span id="line-139"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-comment">{- String -&gt; IO String -}</span><span>
</span><span id="line-140"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-141"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-type">EvalResult</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-142"></span><span>
</span><span id="line-143"></span><span>  </span><span class="hs-comment">-- | Evaluate something of type @IO ()@</span><span>
</span><span id="line-144"></span><span>  </span><span id="EvalIO"><span class="annot"><a href="GHCi.Message.html#EvalIO"><span class="hs-identifier hs-var">EvalIO</span></a></span></span><span>
</span><span id="line-145"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-comment">{- IO a -}</span><span>
</span><span id="line-146"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-type">EvalResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-147"></span><span>
</span><span id="line-148"></span><span>  </span><span class="hs-comment">-- | Create a set of CostCentres with the same module name</span><span>
</span><span id="line-149"></span><span>  </span><span id="MkCostCentres"><span class="annot"><a href="GHCi.Message.html#MkCostCentres"><span class="hs-identifier hs-var">MkCostCentres</span></a></span></span><span>
</span><span id="line-150"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>     </span><span class="hs-comment">-- module, RemotePtr so it can be shared</span><span>
</span><span id="line-151"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- (name, SrcSpan)</span><span>
</span><span id="line-152"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Stack.CCS.html#CostCentre"><span class="hs-identifier hs-type">CostCentre</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-153"></span><span>
</span><span id="line-154"></span><span>  </span><span class="hs-comment">-- | Show a 'CostCentreStack' as a @[String]@</span><span>
</span><span id="line-155"></span><span>  </span><span id="CostCentreStackInfo"><span class="annot"><a href="GHCi.Message.html#CostCentreStackInfo"><span class="hs-identifier hs-var">CostCentreStackInfo</span></a></span></span><span>
</span><span id="line-156"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Stack.CCS.html#CostCentreStack"><span class="hs-identifier hs-type">CostCentreStack</span></a></span><span>
</span><span id="line-157"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-158"></span><span>
</span><span id="line-159"></span><span>  </span><span class="hs-comment">-- | Create a new array of breakpoint flags</span><span>
</span><span id="line-160"></span><span>  </span><span id="NewBreakArray"><span class="annot"><a href="GHCi.Message.html#NewBreakArray"><span class="hs-identifier hs-var">NewBreakArray</span></a></span></span><span>
</span><span id="line-161"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>                               </span><span class="hs-comment">-- size</span><span>
</span><span id="line-162"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="annot"><a href="GHCi.BreakArray.html#BreakArray"><span class="hs-identifier hs-type">BreakArray</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-163"></span><span>
</span><span id="line-164"></span><span>  </span><span class="hs-comment">-- | Enable a breakpoint</span><span>
</span><span id="line-165"></span><span>  </span><span id="EnableBreakpoint"><span class="annot"><a href="GHCi.Message.html#EnableBreakpoint"><span class="hs-identifier hs-var">EnableBreakpoint</span></a></span></span><span>
</span><span id="line-166"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="annot"><a href="GHCi.BreakArray.html#BreakArray"><span class="hs-identifier hs-type">BreakArray</span></a></span><span>
</span><span id="line-167"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>                               </span><span class="hs-comment">-- index</span><span>
</span><span id="line-168"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>                              </span><span class="hs-comment">-- on or off</span><span>
</span><span id="line-169"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-170"></span><span>
</span><span id="line-171"></span><span>  </span><span class="hs-comment">-- | Query the status of a breakpoint (True &lt;=&gt; enabled)</span><span>
</span><span id="line-172"></span><span>  </span><span id="BreakpointStatus"><span class="annot"><a href="GHCi.Message.html#BreakpointStatus"><span class="hs-identifier hs-var">BreakpointStatus</span></a></span></span><span>
</span><span id="line-173"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="annot"><a href="GHCi.BreakArray.html#BreakArray"><span class="hs-identifier hs-type">BreakArray</span></a></span><span>
</span><span id="line-174"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>                               </span><span class="hs-comment">-- index</span><span>
</span><span id="line-175"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>                      </span><span class="hs-comment">-- True &lt;=&gt; enabled</span><span>
</span><span id="line-176"></span><span>
</span><span id="line-177"></span><span>  </span><span class="hs-comment">-- | Get a reference to a free variable at a breakpoint</span><span>
</span><span id="line-178"></span><span>  </span><span id="GetBreakpointVar"><span class="annot"><a href="GHCi.Message.html#GetBreakpointVar"><span class="hs-identifier hs-var">GetBreakpointVar</span></a></span></span><span>
</span><span id="line-179"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span>                         </span><span class="hs-comment">-- the AP_STACK from EvalBreak</span><span>
</span><span id="line-180"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-181"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-182"></span><span>
</span><span id="line-183"></span><span>  </span><span class="hs-comment">-- Template Haskell -------------------------------------------</span><span>
</span><span id="line-184"></span><span>  </span><span class="hs-comment">-- For more details on how TH works with Remote GHCi, see</span><span>
</span><span id="line-185"></span><span>  </span><span class="hs-comment">-- Note [Remote Template Haskell] in libraries/ghci/GHCi/TH.hs.</span><span>
</span><span id="line-186"></span><span>
</span><span id="line-187"></span><span>  </span><span class="hs-comment">-- | Start a new TH module, return a state token that should be</span><span>
</span><span id="line-188"></span><span>  </span><span id="StartTH"><span class="annot"><a href="GHCi.Message.html#StartTH"><span class="hs-identifier hs-var">StartTH</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IORef.html#IORef"><span class="hs-identifier hs-type">IORef</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-type">QState</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-189"></span><span>
</span><span id="line-190"></span><span>  </span><span class="hs-comment">-- | Evaluate a TH computation.</span><span>
</span><span id="line-191"></span><span>  </span><span class="hs-comment">--</span><span>
</span><span id="line-192"></span><span>  </span><span class="hs-comment">-- Returns a ByteString, because we have to force the result</span><span>
</span><span id="line-193"></span><span>  </span><span class="hs-comment">-- before returning it to ensure there are no errors lurking</span><span>
</span><span id="line-194"></span><span>  </span><span class="hs-comment">-- in it.  The TH types don't have NFData instances, and even if</span><span>
</span><span id="line-195"></span><span>  </span><span class="hs-comment">-- they did, we have to serialize the value anyway, so we might</span><span>
</span><span id="line-196"></span><span>  </span><span class="hs-comment">-- as well serialize it to force it.</span><span>
</span><span id="line-197"></span><span>  </span><span id="RunTH"><span class="annot"><a href="GHCi.Message.html#RunTH"><span class="hs-identifier hs-var">RunTH</span></a></span></span><span>
</span><span id="line-198"></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IORef.html#IORef"><span class="hs-identifier hs-type">IORef</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-type">QState</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-199"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span> </span><span class="hs-comment">{- e.g. TH.Q TH.Exp -}</span><span>
</span><span id="line-200"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THResultType"><span class="hs-identifier hs-type">THResultType</span></a></span><span>
</span><span id="line-201"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Loc"><span class="hs-identifier hs-type">TH.Loc</span></a></span><span>
</span><span id="line-202"></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#QResult"><span class="hs-identifier hs-type">QResult</span></a></span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-203"></span><span>
</span><span id="line-204"></span><span>  </span><span class="hs-comment">-- | Run the given mod finalizers.</span><span>
</span><span id="line-205"></span><span>  </span><span id="RunModFinalizers"><span class="annot"><a href="GHCi.Message.html#RunModFinalizers"><span class="hs-identifier hs-var">RunModFinalizers</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IORef.html#IORef"><span class="hs-identifier hs-type">IORef</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-type">QState</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-206"></span><span>                   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Q"><span class="hs-identifier hs-type">TH.Q</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-207"></span><span>                   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#QResult"><span class="hs-identifier hs-type">QResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-208"></span><span>
</span><span id="line-209"></span><span>  </span><span class="hs-comment">-- | Remote interface to GHC.Exts.Heap.getClosureData. This is used by</span><span>
</span><span id="line-210"></span><span>  </span><span class="hs-comment">-- the GHCi debugger to inspect values in the heap for :print and</span><span>
</span><span id="line-211"></span><span>  </span><span class="hs-comment">-- type reconstruction.</span><span>
</span><span id="line-212"></span><span>  </span><span id="GetClosure"><span class="annot"><a href="GHCi.Message.html#GetClosure"><span class="hs-identifier hs-var">GetClosure</span></a></span></span><span>
</span><span id="line-213"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span>
</span><span id="line-214"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.Closures.html#GenClosure"><span class="hs-identifier hs-type">GenClosure</span></a></span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-215"></span><span>
</span><span id="line-216"></span><span>  </span><span class="hs-comment">-- | Evaluate something. This is used to support :force in GHCi.</span><span>
</span><span id="line-217"></span><span>  </span><span id="Seq"><span class="annot"><a href="GHCi.Message.html#Seq"><span class="hs-identifier hs-var">Seq</span></a></span></span><span>
</span><span id="line-218"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span>
</span><span id="line-219"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-type">EvalStatus</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-220"></span><span>
</span><span id="line-221"></span><span>  </span><span class="hs-comment">-- | Resume forcing a free variable in a breakpoint (#2950)</span><span>
</span><span id="line-222"></span><span>  </span><span id="ResumeSeq"><span class="annot"><a href="GHCi.Message.html#ResumeSeq"><span class="hs-identifier hs-var">ResumeSeq</span></a></span></span><span>
</span><span id="line-223"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-type">ResumeContext</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-224"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-type">EvalStatus</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-225"></span><span>
</span><span id="line-226"></span><span id="local-6989586621679092742"><span id="local-6989586621679092744"><span id="local-6989586621679092746"><span id="local-6989586621679095204"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095204"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-227"></span><span>
</span><span id="line-228"></span><span>
</span><span id="line-229"></span><span class="hs-comment">-- | Template Haskell return values</span><span>
</span><span id="line-230"></span><span id="local-6989586621679092739"><span id="local-6989586621679092740"></span></span><span class="hs-keyword">data</span><span> </span><span id="QResult"><span class="annot"><a href="GHCi.Message.html#QResult"><span class="hs-identifier hs-var">QResult</span></a></span></span><span> </span><span id="local-6989586621679095208"><span class="annot"><a href="#local-6989586621679095208"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-231"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="QDone"><span class="annot"><a href="GHCi.Message.html#QDone"><span class="hs-identifier hs-var">QDone</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679095208"><span class="hs-identifier hs-type">a</span></a></span><span>
</span><span id="line-232"></span><span>    </span><span class="hs-comment">-- ^ RunTH finished successfully; return value follows</span><span>
</span><span id="line-233"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="QException"><span class="annot"><a href="GHCi.Message.html#QException"><span class="hs-identifier hs-var">QException</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-234"></span><span>    </span><span class="hs-comment">-- ^ RunTH threw an exception</span><span>
</span><span id="line-235"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="QFail"><span class="annot"><a href="GHCi.Message.html#QFail"><span class="hs-identifier hs-var">QFail</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-236"></span><span>    </span><span class="hs-comment">-- ^ RunTH called 'fail'</span><span>
</span><span id="line-237"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. QResult a -&gt; Rep (QResult a) x)
-&gt; (forall x. Rep (QResult a) x -&gt; QResult a)
-&gt; Generic (QResult a)
forall x. Rep (QResult a) x -&gt; QResult a
forall x. QResult a -&gt; Rep (QResult a) x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
forall a x. Rep (QResult a) x -&gt; QResult a
forall a x. QResult a -&gt; Rep (QResult a) x
$cto :: forall a x. Rep (QResult a) x -&gt; QResult a
$cfrom :: forall a x. QResult a -&gt; Rep (QResult a) x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092721"><span id="local-6989586621679092723"><span id="local-6989586621679092731"><span class="annot"><span class="annottext">Int -&gt; QResult a -&gt; ShowS
[QResult a] -&gt; ShowS
QResult a -&gt; String
(Int -&gt; QResult a -&gt; ShowS)
-&gt; (QResult a -&gt; String)
-&gt; ([QResult a] -&gt; ShowS)
-&gt; Show (QResult a)
forall a. Show a =&gt; Int -&gt; QResult a -&gt; ShowS
forall a. Show a =&gt; [QResult a] -&gt; ShowS
forall a. Show a =&gt; QResult a -&gt; String
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [QResult a] -&gt; ShowS
$cshowList :: forall a. Show a =&gt; [QResult a] -&gt; ShowS
show :: QResult a -&gt; String
$cshow :: forall a. Show a =&gt; QResult a -&gt; String
showsPrec :: Int -&gt; QResult a -&gt; ShowS
$cshowsPrec :: forall a. Show a =&gt; Int -&gt; QResult a -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-238"></span><span>
</span><span id="line-239"></span><span id="local-6989586621679095213"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092715"><span id="local-6989586621679092717"><span id="local-6989586621679092719"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095213"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#QResult"><span class="hs-identifier hs-type">QResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095213"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-240"></span><span>
</span><span id="line-241"></span><span>
</span><span id="line-242"></span><span class="hs-comment">-- | Messages sent back to GHC from GHCi.TH, to implement the methods</span><span>
</span><span id="line-243"></span><span class="hs-comment">-- of 'Quasi'.  For an overview of how TH works with Remote GHCi, see</span><span>
</span><span id="line-244"></span><span class="hs-comment">-- Note [Remote Template Haskell] in GHCi.TH.</span><span>
</span><span id="line-245"></span><span class="hs-keyword">data</span><span> </span><span id="THMessage"><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-var">THMessage</span></a></span></span><span> </span><span id="local-6989586621679092713"><span class="annot"><a href="#local-6989586621679092713"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-246"></span><span>  </span><span id="NewName"><span class="annot"><a href="GHCi.Message.html#NewName"><span class="hs-identifier hs-var">NewName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-247"></span><span>  </span><span id="Report"><span class="annot"><a href="GHCi.Message.html#Report"><span class="hs-identifier hs-var">Report</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-248"></span><span>  </span><span id="LookupName"><span class="annot"><a href="GHCi.Message.html#LookupName"><span class="hs-identifier hs-var">LookupName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-249"></span><span>  </span><span id="Reify"><span class="annot"><a href="GHCi.Message.html#Reify"><span class="hs-identifier hs-var">Reify</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Info"><span class="hs-identifier hs-type">TH.Info</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-250"></span><span>  </span><span id="ReifyFixity"><span class="annot"><a href="GHCi.Message.html#ReifyFixity"><span class="hs-identifier hs-var">ReifyFixity</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Fixity"><span class="hs-identifier hs-type">TH.Fixity</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-251"></span><span>  </span><span id="ReifyType"><span class="annot"><a href="GHCi.Message.html#ReifyType"><span class="hs-identifier hs-var">ReifyType</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Type"><span class="hs-identifier hs-type">TH.Type</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-252"></span><span>  </span><span id="ReifyInstances"><span class="annot"><a href="GHCi.Message.html#ReifyInstances"><span class="hs-identifier hs-var">ReifyInstances</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Type"><span class="hs-identifier hs-type">TH.Type</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Dec"><span class="hs-identifier hs-type">TH.Dec</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-253"></span><span>  </span><span id="ReifyRoles"><span class="annot"><a href="GHCi.Message.html#ReifyRoles"><span class="hs-identifier hs-var">ReifyRoles</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Role"><span class="hs-identifier hs-type">TH.Role</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-254"></span><span>  </span><span id="ReifyAnnotations"><span class="annot"><a href="GHCi.Message.html#ReifyAnnotations"><span class="hs-identifier hs-var">ReifyAnnotations</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#AnnLookup"><span class="hs-identifier hs-type">TH.AnnLookup</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.html#TypeRep"><span class="hs-identifier hs-type">TypeRep</span></a></span><span>
</span><span id="line-255"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-256"></span><span>  </span><span id="ReifyModule"><span class="annot"><a href="GHCi.Message.html#ReifyModule"><span class="hs-identifier hs-var">ReifyModule</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Module"><span class="hs-identifier hs-type">TH.Module</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#ModuleInfo"><span class="hs-identifier hs-type">TH.ModuleInfo</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-257"></span><span>  </span><span id="ReifyConStrictness"><span class="annot"><a href="GHCi.Message.html#ReifyConStrictness"><span class="hs-identifier hs-var">ReifyConStrictness</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Name"><span class="hs-identifier hs-type">TH.Name</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#DecidedStrictness"><span class="hs-identifier hs-type">TH.DecidedStrictness</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-258"></span><span>
</span><span id="line-259"></span><span>  </span><span id="AddDependentFile"><span class="annot"><a href="GHCi.Message.html#AddDependentFile"><span class="hs-identifier hs-var">AddDependentFile</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-260"></span><span>  </span><span id="AddTempFile"><span class="annot"><a href="GHCi.Message.html#AddTempFile"><span class="hs-identifier hs-var">AddTempFile</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-261"></span><span>  </span><span id="AddModFinalizer"><span class="annot"><a href="GHCi.Message.html#AddModFinalizer"><span class="hs-identifier hs-var">AddModFinalizer</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Q"><span class="hs-identifier hs-type">TH.Q</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-262"></span><span>  </span><span id="AddCorePlugin"><span class="annot"><a href="GHCi.Message.html#AddCorePlugin"><span class="hs-identifier hs-var">AddCorePlugin</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-263"></span><span>  </span><span id="AddTopDecls"><span class="annot"><a href="GHCi.Message.html#AddTopDecls"><span class="hs-identifier hs-var">AddTopDecls</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Dec"><span class="hs-identifier hs-type">TH.Dec</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-264"></span><span>  </span><span id="AddForeignFilePath"><span class="annot"><a href="GHCi.Message.html#AddForeignFilePath"><span class="hs-identifier hs-var">AddForeignFilePath</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-boot-th/src/GHC.ForeignSrcLang.Type.html#ForeignSrcLang"><span class="hs-identifier hs-type">ForeignSrcLang</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-265"></span><span>  </span><span id="IsExtEnabled"><span class="annot"><a href="GHCi.Message.html#IsExtEnabled"><span class="hs-identifier hs-var">IsExtEnabled</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-boot-th/src/GHC.LanguageExtensions.Type.html#Extension"><span class="hs-identifier hs-type">Extension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">)</span><span>
</span><span id="line-266"></span><span>  </span><span id="ExtsEnabled"><span class="annot"><a href="GHCi.Message.html#ExtsEnabled"><span class="hs-identifier hs-var">ExtsEnabled</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-boot-th/src/GHC.LanguageExtensions.Type.html#Extension"><span class="hs-identifier hs-type">Extension</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-267"></span><span>
</span><span id="line-268"></span><span>  </span><span id="StartRecover"><span class="annot"><a href="GHCi.Message.html#StartRecover"><span class="hs-identifier hs-var">StartRecover</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-269"></span><span>  </span><span id="EndRecover"><span class="annot"><a href="GHCi.Message.html#EndRecover"><span class="hs-identifier hs-var">EndRecover</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-270"></span><span>  </span><span id="FailIfErrs"><span class="annot"><a href="GHCi.Message.html#FailIfErrs"><span class="hs-identifier hs-var">FailIfErrs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-271"></span><span>
</span><span id="line-272"></span><span>  </span><span class="hs-comment">-- | Indicates that this RunTH is finished, and the next message</span><span>
</span><span id="line-273"></span><span>  </span><span class="hs-comment">-- will be the result of RunTH (a QResult).</span><span>
</span><span id="line-274"></span><span>  </span><span id="RunTHDone"><span class="annot"><a href="GHCi.Message.html#RunTHDone"><span class="hs-identifier hs-var">RunTHDone</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-275"></span><span>
</span><span id="line-276"></span><span id="local-6989586621679092683"><span id="local-6989586621679092685"><span id="local-6989586621679092687"><span id="local-6989586621679095197"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095197"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-277"></span><span>
</span><span id="line-278"></span><span class="hs-keyword">data</span><span> </span><span id="THMsg"><span class="annot"><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679095195"><span class="annot"><a href="#local-6989586621679095195"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095195"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095195"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span id="THMsg"><span class="annot"><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095195"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-279"></span><span>
</span><span id="line-280"></span><span class="annot"><a href="GHCi.Message.html#getTHMessage"><span class="hs-identifier hs-type">getTHMessage</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.Internal.html#Get"><span class="hs-identifier hs-type">Get</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-type">THMsg</span></a></span><span>
</span><span id="line-281"></span><span id="getTHMessage"><span class="annot"><span class="annottext">getTHMessage :: Get THMsg
</span><a href="GHCi.Message.html#getTHMessage"><span class="hs-identifier hs-var hs-var">getTHMessage</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-282"></span><span>  </span><span id="local-6989586621679092681"><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092681"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Get Word8
</span><a href="../../binary/src/Data.Binary.Get.html#getWord8"><span class="hs-identifier hs-var">getWord8</span></a></span><span>
</span><span id="line-283"></span><span>  </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092681"><span class="hs-identifier hs-var">b</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-284"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">0</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult Name) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult Name) -&gt; THMsg)
-&gt; (String -&gt; THMessage (THResult Name)) -&gt; String -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; THMessage (THResult Name)
</span><a href="GHCi.Message.html#NewName"><span class="hs-identifier hs-var">NewName</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; THMsg) -&gt; Get String -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-285"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">1</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; Get (THMessage (THResult ())) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; String -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#Report"><span class="hs-identifier hs-var">Report</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; String -&gt; THMessage (THResult ()))
-&gt; Get Bool -&gt; Get (String -&gt; THMessage (THResult ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Bool
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (String -&gt; THMessage (THResult ()))
-&gt; Get String -&gt; Get (THMessage (THResult ()))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-286"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">2</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult (Maybe Name)) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult (Maybe Name)) -&gt; THMsg)
-&gt; Get (THMessage (THResult (Maybe Name))) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; String -&gt; THMessage (THResult (Maybe Name))
</span><a href="GHCi.Message.html#LookupName"><span class="hs-identifier hs-var">LookupName</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; String -&gt; THMessage (THResult (Maybe Name)))
-&gt; Get Bool -&gt; Get (String -&gt; THMessage (THResult (Maybe Name)))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Bool
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (String -&gt; THMessage (THResult (Maybe Name)))
-&gt; Get String -&gt; Get (THMessage (THResult (Maybe Name)))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-287"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">3</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult Info) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult Info) -&gt; THMsg)
-&gt; (Name -&gt; THMessage (THResult Info)) -&gt; Name -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; THMessage (THResult Info)
</span><a href="GHCi.Message.html#Reify"><span class="hs-identifier hs-var">Reify</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; THMsg) -&gt; Get Name -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-288"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">4</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult (Maybe Fixity)) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult (Maybe Fixity)) -&gt; THMsg)
-&gt; (Name -&gt; THMessage (THResult (Maybe Fixity))) -&gt; Name -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; THMessage (THResult (Maybe Fixity))
</span><a href="GHCi.Message.html#ReifyFixity"><span class="hs-identifier hs-var">ReifyFixity</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; THMsg) -&gt; Get Name -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-289"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">5</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [Dec]) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult [Dec]) -&gt; THMsg)
-&gt; Get (THMessage (THResult [Dec])) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Name -&gt; [Type] -&gt; THMessage (THResult [Dec])
</span><a href="GHCi.Message.html#ReifyInstances"><span class="hs-identifier hs-var">ReifyInstances</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; [Type] -&gt; THMessage (THResult [Dec]))
-&gt; Get Name -&gt; Get ([Type] -&gt; THMessage (THResult [Dec]))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get ([Type] -&gt; THMessage (THResult [Dec]))
-&gt; Get [Type] -&gt; Get (THMessage (THResult [Dec]))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [Type]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-290"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">6</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [Role]) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult [Role]) -&gt; THMsg)
-&gt; (Name -&gt; THMessage (THResult [Role])) -&gt; Name -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; THMessage (THResult [Role])
</span><a href="GHCi.Message.html#ReifyRoles"><span class="hs-identifier hs-var">ReifyRoles</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; THMsg) -&gt; Get Name -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-291"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">7</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [ByteString]) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult [ByteString]) -&gt; THMsg)
-&gt; Get (THMessage (THResult [ByteString])) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">AnnLookup -&gt; TypeRep -&gt; THMessage (THResult [ByteString])
</span><a href="GHCi.Message.html#ReifyAnnotations"><span class="hs-identifier hs-var">ReifyAnnotations</span></a></span><span> </span><span class="annot"><span class="annottext">(AnnLookup -&gt; TypeRep -&gt; THMessage (THResult [ByteString]))
-&gt; Get AnnLookup
-&gt; Get (TypeRep -&gt; THMessage (THResult [ByteString]))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get AnnLookup
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (TypeRep -&gt; THMessage (THResult [ByteString]))
-&gt; Get TypeRep -&gt; Get (THMessage (THResult [ByteString]))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get TypeRep
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-292"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">8</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ModuleInfo) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ModuleInfo) -&gt; THMsg)
-&gt; (Module -&gt; THMessage (THResult ModuleInfo)) -&gt; Module -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Module -&gt; THMessage (THResult ModuleInfo)
</span><a href="GHCi.Message.html#ReifyModule"><span class="hs-identifier hs-var">ReifyModule</span></a></span><span> </span><span class="annot"><span class="annottext">(Module -&gt; THMsg) -&gt; Get Module -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Module
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-293"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">9</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [DecidedStrictness]) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult [DecidedStrictness]) -&gt; THMsg)
-&gt; (Name -&gt; THMessage (THResult [DecidedStrictness]))
-&gt; Name
-&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; THMessage (THResult [DecidedStrictness])
</span><a href="GHCi.Message.html#ReifyConStrictness"><span class="hs-identifier hs-var">ReifyConStrictness</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; THMsg) -&gt; Get Name -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-294"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">10</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; (String -&gt; THMessage (THResult ())) -&gt; String -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#AddDependentFile"><span class="hs-identifier hs-var">AddDependentFile</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; THMsg) -&gt; Get String -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-295"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">11</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult String) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult String) -&gt; THMsg)
-&gt; (String -&gt; THMessage (THResult String)) -&gt; String -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; THMessage (THResult String)
</span><a href="GHCi.Message.html#AddTempFile"><span class="hs-identifier hs-var">AddTempFile</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; THMsg) -&gt; Get String -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-296"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">12</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; ([Dec] -&gt; THMessage (THResult ())) -&gt; [Dec] -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[Dec] -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#AddTopDecls"><span class="hs-identifier hs-var">AddTopDecls</span></a></span><span> </span><span class="annot"><span class="annottext">([Dec] -&gt; THMsg) -&gt; Get [Dec] -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [Dec]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-297"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">13</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult Bool) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult Bool) -&gt; THMsg)
-&gt; Get (THMessage (THResult Bool)) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Extension -&gt; THMessage (THResult Bool)
</span><a href="GHCi.Message.html#IsExtEnabled"><span class="hs-identifier hs-var">IsExtEnabled</span></a></span><span> </span><span class="annot"><span class="annottext">(Extension -&gt; THMessage (THResult Bool))
-&gt; Get Extension -&gt; Get (THMessage (THResult Bool))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Extension
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-298"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">14</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [Extension]) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult [Extension]) -&gt; THMsg)
-&gt; Get (THMessage (THResult [Extension])) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [Extension])
-&gt; Get (THMessage (THResult [Extension]))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage (THResult [Extension])
</span><a href="GHCi.Message.html#ExtsEnabled"><span class="hs-identifier hs-var">ExtsEnabled</span></a></span><span>
</span><span id="line-299"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">15</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage () -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage () -&gt; THMsg) -&gt; Get (THMessage ()) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage () -&gt; Get (THMessage ())
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage ()
</span><a href="GHCi.Message.html#StartRecover"><span class="hs-identifier hs-var">StartRecover</span></a></span><span>
</span><span id="line-300"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">16</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage () -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage () -&gt; THMsg) -&gt; (Bool -&gt; THMessage ()) -&gt; Bool -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; THMessage ()
</span><a href="GHCi.Message.html#EndRecover"><span class="hs-identifier hs-var">EndRecover</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; THMsg) -&gt; Get Bool -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Bool
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-301"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">17</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; Get (THMessage (THResult ())) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; Get (THMessage (THResult ()))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ())
</span><a href="GHCi.Message.html#FailIfErrs"><span class="hs-identifier hs-var">FailIfErrs</span></a></span><span>
</span><span id="line-302"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">18</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMsg -&gt; Get THMsg
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">THMessage () -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage ()
</span><a href="GHCi.Message.html#RunTHDone"><span class="hs-identifier hs-var">RunTHDone</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-303"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">19</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; (RemoteRef (Q ()) -&gt; THMessage (THResult ()))
-&gt; RemoteRef (Q ())
-&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (Q ()) -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#AddModFinalizer"><span class="hs-identifier hs-var">AddModFinalizer</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef (Q ()) -&gt; THMsg) -&gt; Get (RemoteRef (Q ())) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (Q ()))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-304"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">20</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; Get (THMessage (THResult ())) -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ForeignSrcLang -&gt; String -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#AddForeignFilePath"><span class="hs-identifier hs-var">AddForeignFilePath</span></a></span><span> </span><span class="annot"><span class="annottext">(ForeignSrcLang -&gt; String -&gt; THMessage (THResult ()))
-&gt; Get ForeignSrcLang -&gt; Get (String -&gt; THMessage (THResult ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get ForeignSrcLang
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (String -&gt; THMessage (THResult ()))
-&gt; Get String -&gt; Get (THMessage (THResult ()))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-305"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">21</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult ()) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult ()) -&gt; THMsg)
-&gt; (String -&gt; THMessage (THResult ())) -&gt; String -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; THMessage (THResult ())
</span><a href="GHCi.Message.html#AddCorePlugin"><span class="hs-identifier hs-var">AddCorePlugin</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; THMsg) -&gt; Get String -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-306"></span><span>    </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">22</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">THMessage (THResult Type) -&gt; THMsg
forall a. (Binary a, Show a) =&gt; THMessage a -&gt; THMsg
</span><a href="GHCi.Message.html#THMsg"><span class="hs-identifier hs-var">THMsg</span></a></span><span> </span><span class="annot"><span class="annottext">(THMessage (THResult Type) -&gt; THMsg)
-&gt; (Name -&gt; THMessage (THResult Type)) -&gt; Name -&gt; THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; THMessage (THResult Type)
</span><a href="GHCi.Message.html#ReifyType"><span class="hs-identifier hs-var">ReifyType</span></a></span><span> </span><span class="annot"><span class="annottext">(Name -&gt; THMsg) -&gt; Get Name -&gt; Get THMsg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Name
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-307"></span><span>    </span><span id="local-6989586621679092677"><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092677"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; Get THMsg
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;getTHMessage: unknown message &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092677"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-308"></span><span>
</span><span id="line-309"></span><span id="local-6989586621679095183"><span class="annot"><a href="GHCi.Message.html#putTHMessage"><span class="hs-identifier hs-type">putTHMessage</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095183"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Put.html#Put"><span class="hs-identifier hs-type">Put</span></a></span></span><span>
</span><span id="line-310"></span><span id="putTHMessage"><span class="annot"><span class="annottext">putTHMessage :: forall a. THMessage a -&gt; Put
</span><a href="GHCi.Message.html#putTHMessage"><span class="hs-identifier hs-var hs-var">putTHMessage</span></a></span></span><span> </span><span id="local-6989586621679092674"><span class="annot"><span class="annottext">THMessage a
</span><a href="#local-6989586621679092674"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">THMessage a
</span><a href="#local-6989586621679092674"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-311"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#NewName"><span class="hs-identifier hs-type">NewName</span></a></span><span> </span><span id="local-6989586621679092668"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092668"><span class="hs-identifier hs-var">a</span></a></span></span><span>                   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">0</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092668"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-312"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#Report"><span class="hs-identifier hs-type">Report</span></a></span><span> </span><span id="local-6989586621679092659"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092659"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092658"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092658"><span class="hs-identifier hs-var">b</span></a></span></span><span>                  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">1</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092659"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092658"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-313"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LookupName"><span class="hs-identifier hs-type">LookupName</span></a></span><span> </span><span id="local-6989586621679092651"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092651"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092650"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092650"><span class="hs-identifier hs-var">b</span></a></span></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">2</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092651"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092650"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-314"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#Reify"><span class="hs-identifier hs-type">Reify</span></a></span><span> </span><span id="local-6989586621679092645"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092645"><span class="hs-identifier hs-var">a</span></a></span></span><span>                     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">3</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092645"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-315"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyFixity"><span class="hs-identifier hs-type">ReifyFixity</span></a></span><span> </span><span id="local-6989586621679092640"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092640"><span class="hs-identifier hs-var">a</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">4</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092640"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-316"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyInstances"><span class="hs-identifier hs-type">ReifyInstances</span></a></span><span> </span><span id="local-6989586621679092633"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092633"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092632"><span class="annot"><span class="annottext">[Type]
</span><a href="#local-6989586621679092632"><span class="hs-identifier hs-var">b</span></a></span></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">5</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092633"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[Type] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[Type]
</span><a href="#local-6989586621679092632"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-317"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyRoles"><span class="hs-identifier hs-type">ReifyRoles</span></a></span><span> </span><span id="local-6989586621679092627"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092627"><span class="hs-identifier hs-var">a</span></a></span></span><span>                </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">6</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092627"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-318"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyAnnotations"><span class="hs-identifier hs-type">ReifyAnnotations</span></a></span><span> </span><span id="local-6989586621679092620"><span class="annot"><span class="annottext">AnnLookup
</span><a href="#local-6989586621679092620"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092619"><span class="annot"><span class="annottext">TypeRep
</span><a href="#local-6989586621679092619"><span class="hs-identifier hs-var">b</span></a></span></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">7</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">AnnLookup -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">AnnLookup
</span><a href="#local-6989586621679092620"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">TypeRep -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">TypeRep
</span><a href="#local-6989586621679092619"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-319"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyModule"><span class="hs-identifier hs-type">ReifyModule</span></a></span><span> </span><span id="local-6989586621679092614"><span class="annot"><span class="annottext">Module
</span><a href="#local-6989586621679092614"><span class="hs-identifier hs-var">a</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">8</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Module -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Module
</span><a href="#local-6989586621679092614"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-320"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyConStrictness"><span class="hs-identifier hs-type">ReifyConStrictness</span></a></span><span> </span><span id="local-6989586621679092609"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092609"><span class="hs-identifier hs-var">a</span></a></span></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">9</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092609"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-321"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddDependentFile"><span class="hs-identifier hs-type">AddDependentFile</span></a></span><span> </span><span id="local-6989586621679092604"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092604"><span class="hs-identifier hs-var">a</span></a></span></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">10</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092604"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-322"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddTempFile"><span class="hs-identifier hs-type">AddTempFile</span></a></span><span> </span><span id="local-6989586621679092599"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092599"><span class="hs-identifier hs-var">a</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092599"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-323"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddTopDecls"><span class="hs-identifier hs-type">AddTopDecls</span></a></span><span> </span><span id="local-6989586621679092594"><span class="annot"><span class="annottext">[Dec]
</span><a href="#local-6989586621679092594"><span class="hs-identifier hs-var">a</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[Dec] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[Dec]
</span><a href="#local-6989586621679092594"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-324"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#IsExtEnabled"><span class="hs-identifier hs-type">IsExtEnabled</span></a></span><span> </span><span id="local-6989586621679092589"><span class="annot"><span class="annottext">Extension
</span><a href="#local-6989586621679092589"><span class="hs-identifier hs-var">a</span></a></span></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">13</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Extension -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Extension
</span><a href="#local-6989586621679092589"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-325"></span><span>  </span><span class="annot"><span class="annottext">THMessage a
</span><a href="GHCi.Message.html#ExtsEnabled"><span class="hs-identifier hs-var">ExtsEnabled</span></a></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">14</span></span><span>
</span><span id="line-326"></span><span>  </span><span class="annot"><span class="annottext">THMessage a
</span><a href="GHCi.Message.html#StartRecover"><span class="hs-identifier hs-var">StartRecover</span></a></span><span>                </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">15</span></span><span>
</span><span id="line-327"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EndRecover"><span class="hs-identifier hs-type">EndRecover</span></a></span><span> </span><span id="local-6989586621679092580"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092580"><span class="hs-identifier hs-var">a</span></a></span></span><span>                </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">16</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092580"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-328"></span><span>  </span><span class="annot"><span class="annottext">THMessage a
</span><a href="GHCi.Message.html#FailIfErrs"><span class="hs-identifier hs-var">FailIfErrs</span></a></span><span>                  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">17</span></span><span>
</span><span id="line-329"></span><span>  </span><span class="annot"><span class="annottext">THMessage a
</span><a href="GHCi.Message.html#RunTHDone"><span class="hs-identifier hs-var">RunTHDone</span></a></span><span>                   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">18</span></span><span>
</span><span id="line-330"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddModFinalizer"><span class="hs-identifier hs-type">AddModFinalizer</span></a></span><span> </span><span id="local-6989586621679092571"><span class="annot"><span class="annottext">RemoteRef (Q ())
</span><a href="#local-6989586621679092571"><span class="hs-identifier hs-var">a</span></a></span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">19</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (Q ()) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (Q ())
</span><a href="#local-6989586621679092571"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-331"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddForeignFilePath"><span class="hs-identifier hs-type">AddForeignFilePath</span></a></span><span> </span><span id="local-6989586621679092564"><span class="annot"><span class="annottext">ForeignSrcLang
</span><a href="#local-6989586621679092564"><span class="hs-identifier hs-var">lang</span></a></span></span><span> </span><span id="local-6989586621679092563"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092563"><span class="hs-identifier hs-var">a</span></a></span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">20</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignSrcLang -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignSrcLang
</span><a href="#local-6989586621679092564"><span class="hs-identifier hs-var">lang</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092563"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-332"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddCorePlugin"><span class="hs-identifier hs-type">AddCorePlugin</span></a></span><span> </span><span id="local-6989586621679092558"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092558"><span class="hs-identifier hs-var">a</span></a></span></span><span>             </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">21</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092558"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-333"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ReifyType"><span class="hs-identifier hs-type">ReifyType</span></a></span><span> </span><span id="local-6989586621679092553"><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092553"><span class="hs-identifier hs-var">a</span></a></span></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">22</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Name -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Name
</span><a href="#local-6989586621679092553"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-334"></span><span>
</span><span id="line-335"></span><span>
</span><span id="line-336"></span><span id="local-6989586621679092551"><span id="local-6989586621679092552"></span></span><span class="hs-keyword">data</span><span> </span><span id="EvalOpts"><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier hs-var">EvalOpts</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="EvalOpts"><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier hs-var">EvalOpts</span></a></span></span><span>
</span><span id="line-337"></span><span>  </span><span class="hs-special">{</span><span> </span><span id="useSandboxThread"><span class="annot"><span class="annottext">EvalOpts -&gt; Bool
</span><a href="GHCi.Message.html#useSandboxThread"><span class="hs-identifier hs-var hs-var">useSandboxThread</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-338"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="singleStep"><span class="annot"><span class="annottext">EvalOpts -&gt; Bool
</span><a href="GHCi.Message.html#singleStep"><span class="hs-identifier hs-var hs-var">singleStep</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-339"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="breakOnException"><span class="annot"><span class="annottext">EvalOpts -&gt; Bool
</span><a href="GHCi.Message.html#breakOnException"><span class="hs-identifier hs-var hs-var">breakOnException</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-340"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="breakOnError"><span class="annot"><span class="annottext">EvalOpts -&gt; Bool
</span><a href="GHCi.Message.html#breakOnError"><span class="hs-identifier hs-var hs-var">breakOnError</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-341"></span><span>  </span><span class="hs-special">}</span><span>
</span><span id="line-342"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. EvalOpts -&gt; Rep EvalOpts x)
-&gt; (forall x. Rep EvalOpts x -&gt; EvalOpts) -&gt; Generic EvalOpts
forall x. Rep EvalOpts x -&gt; EvalOpts
forall x. EvalOpts -&gt; Rep EvalOpts x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep EvalOpts x -&gt; EvalOpts
$cfrom :: forall x. EvalOpts -&gt; Rep EvalOpts x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092533"><span id="local-6989586621679092535"><span id="local-6989586621679092542"><span class="annot"><span class="annottext">Int -&gt; EvalOpts -&gt; ShowS
[EvalOpts] -&gt; ShowS
EvalOpts -&gt; String
(Int -&gt; EvalOpts -&gt; ShowS)
-&gt; (EvalOpts -&gt; String) -&gt; ([EvalOpts] -&gt; ShowS) -&gt; Show EvalOpts
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [EvalOpts] -&gt; ShowS
$cshowList :: [EvalOpts] -&gt; ShowS
show :: EvalOpts -&gt; String
$cshow :: EvalOpts -&gt; String
showsPrec :: Int -&gt; EvalOpts -&gt; ShowS
$cshowsPrec :: Int -&gt; EvalOpts -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-343"></span><span>
</span><span id="line-344"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092527"><span id="local-6989586621679092529"><span id="local-6989586621679092531"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalOpts"><span class="hs-identifier hs-type">EvalOpts</span></a></span></span></span></span><span>
</span><span id="line-345"></span><span>
</span><span id="line-346"></span><span class="hs-keyword">data</span><span> </span><span id="ResumeContext"><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-var">ResumeContext</span></a></span></span><span> </span><span id="local-6989586621679095178"><span class="annot"><a href="#local-6989586621679095178"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ResumeContext"><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-var">ResumeContext</span></a></span></span><span>
</span><span id="line-347"></span><span>  </span><span class="hs-special">{</span><span> </span><span id="resumeBreakMVar"><span class="annot"><span class="annottext">forall a. ResumeContext a -&gt; MVar ()
</span><a href="GHCi.Message.html#resumeBreakMVar"><span class="hs-identifier hs-var hs-var">resumeBreakMVar</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.MVar.html#MVar"><span class="hs-identifier hs-type">MVar</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-348"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="resumeStatusMVar"><span class="annot"><span class="annottext">forall a. ResumeContext a -&gt; MVar (EvalStatus a)
</span><a href="GHCi.Message.html#resumeStatusMVar"><span class="hs-identifier hs-var hs-var">resumeStatusMVar</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.MVar.html#MVar"><span class="hs-identifier hs-type">MVar</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-type">EvalStatus</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095178"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-349"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="resumeThreadId"><span class="annot"><span class="annottext">forall a. ResumeContext a -&gt; ThreadId
</span><a href="GHCi.Message.html#resumeThreadId"><span class="hs-identifier hs-var hs-var">resumeThreadId</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Conc.Sync.html#ThreadId"><span class="hs-identifier hs-type">ThreadId</span></a></span><span>
</span><span id="line-350"></span><span>  </span><span class="hs-special">}</span><span>
</span><span id="line-351"></span><span>
</span><span id="line-352"></span><span class="hs-comment">-- | We can pass simple expressions to EvalStmt, consisting of values</span><span>
</span><span id="line-353"></span><span class="hs-comment">-- and application.  This allows us to wrap the statement to be</span><span>
</span><span id="line-354"></span><span class="hs-comment">-- executed in another function, which is used by GHCi to implement</span><span>
</span><span id="line-355"></span><span class="hs-comment">-- :set args and :set prog.  It might be worthwhile to extend this</span><span>
</span><span id="line-356"></span><span class="hs-comment">-- little language in the future.</span><span>
</span><span id="line-357"></span><span id="local-6989586621679092521"><span id="local-6989586621679092522"></span></span><span class="hs-keyword">data</span><span> </span><span id="EvalExpr"><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier hs-var">EvalExpr</span></a></span></span><span> </span><span id="local-6989586621679095170"><span class="annot"><a href="#local-6989586621679095170"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-358"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="EvalThis"><span class="annot"><a href="GHCi.Message.html#EvalThis"><span class="hs-identifier hs-var">EvalThis</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679095170"><span class="hs-identifier hs-type">a</span></a></span><span>
</span><span id="line-359"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="EvalApp"><span class="annot"><a href="GHCi.Message.html#EvalApp"><span class="hs-identifier hs-var">EvalApp</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier hs-type">EvalExpr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095170"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier hs-type">EvalExpr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095170"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-360"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. EvalExpr a -&gt; Rep (EvalExpr a) x)
-&gt; (forall x. Rep (EvalExpr a) x -&gt; EvalExpr a)
-&gt; Generic (EvalExpr a)
forall x. Rep (EvalExpr a) x -&gt; EvalExpr a
forall x. EvalExpr a -&gt; Rep (EvalExpr a) x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
forall a x. Rep (EvalExpr a) x -&gt; EvalExpr a
forall a x. EvalExpr a -&gt; Rep (EvalExpr a) x
$cto :: forall a x. Rep (EvalExpr a) x -&gt; EvalExpr a
$cfrom :: forall a x. EvalExpr a -&gt; Rep (EvalExpr a) x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092506"><span id="local-6989586621679092508"><span id="local-6989586621679092515"><span class="annot"><span class="annottext">Int -&gt; EvalExpr a -&gt; ShowS
[EvalExpr a] -&gt; ShowS
EvalExpr a -&gt; String
(Int -&gt; EvalExpr a -&gt; ShowS)
-&gt; (EvalExpr a -&gt; String)
-&gt; ([EvalExpr a] -&gt; ShowS)
-&gt; Show (EvalExpr a)
forall a. Show a =&gt; Int -&gt; EvalExpr a -&gt; ShowS
forall a. Show a =&gt; [EvalExpr a] -&gt; ShowS
forall a. Show a =&gt; EvalExpr a -&gt; String
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [EvalExpr a] -&gt; ShowS
$cshowList :: forall a. Show a =&gt; [EvalExpr a] -&gt; ShowS
show :: EvalExpr a -&gt; String
$cshow :: forall a. Show a =&gt; EvalExpr a -&gt; String
showsPrec :: Int -&gt; EvalExpr a -&gt; ShowS
$cshowsPrec :: forall a. Show a =&gt; Int -&gt; EvalExpr a -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-361"></span><span>
</span><span id="line-362"></span><span id="local-6989586621679095218"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092500"><span id="local-6989586621679092502"><span id="local-6989586621679092504"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095218"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalExpr"><span class="hs-identifier hs-type">EvalExpr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095218"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-363"></span><span>
</span><span id="line-364"></span><span class="hs-keyword">type</span><span> </span><span id="EvalStatus"><span class="annot"><a href="GHCi.Message.html#EvalStatus"><span class="hs-identifier hs-var">EvalStatus</span></a></span></span><span> </span><span id="local-6989586621679092499"><span class="annot"><a href="#local-6989586621679092499"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHCi.Message.html#EvalStatus_"><span class="hs-identifier hs-type">EvalStatus_</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679092499"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679092499"><span class="hs-identifier hs-type">a</span></a></span><span>
</span><span id="line-365"></span><span>
</span><span id="line-366"></span><span id="local-6989586621679092497"><span id="local-6989586621679092498"></span></span><span class="hs-keyword">data</span><span> </span><span id="EvalStatus_"><span class="annot"><a href="GHCi.Message.html#EvalStatus_"><span class="hs-identifier hs-var">EvalStatus_</span></a></span></span><span> </span><span id="local-6989586621679095210"><span class="annot"><a href="#local-6989586621679095210"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679095209"><span class="annot"><a href="#local-6989586621679095209"><span class="hs-identifier hs-type">b</span></a></span></span><span>
</span><span id="line-367"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="EvalComplete"><span class="annot"><a href="GHCi.Message.html#EvalComplete"><span class="hs-identifier hs-var">EvalComplete</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word64"><span class="hs-identifier hs-type">Word64</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-type">EvalResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095210"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-368"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="EvalBreak"><span class="annot"><a href="GHCi.Message.html#EvalBreak"><span class="hs-identifier hs-var">EvalBreak</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-369"></span><span>       </span><span class="annot"><a href="GHCi.RemoteTypes.html#HValueRef"><span class="hs-identifier hs-type">HValueRef</span></a></span><span class="hs-comment">{- AP_STACK -}</span><span>
</span><span id="line-370"></span><span>       </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">{- break index -}</span><span>
</span><span id="line-371"></span><span>       </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-comment">{- uniq of ModuleName -}</span><span>
</span><span id="line-372"></span><span>       </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemoteRef"><span class="hs-identifier hs-type">RemoteRef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#ResumeContext"><span class="hs-identifier hs-type">ResumeContext</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095209"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-373"></span><span>       </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.RemoteTypes.html#RemotePtr"><span class="hs-identifier hs-type">RemotePtr</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Stack.CCS.html#CostCentreStack"><span class="hs-identifier hs-type">CostCentreStack</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- Cost centre stack</span><span>
</span><span id="line-374"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. EvalStatus_ a b -&gt; Rep (EvalStatus_ a b) x)
-&gt; (forall x. Rep (EvalStatus_ a b) x -&gt; EvalStatus_ a b)
-&gt; Generic (EvalStatus_ a b)
forall x. Rep (EvalStatus_ a b) x -&gt; EvalStatus_ a b
forall x. EvalStatus_ a b -&gt; Rep (EvalStatus_ a b) x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
forall a b x. Rep (EvalStatus_ a b) x -&gt; EvalStatus_ a b
forall a b x. EvalStatus_ a b -&gt; Rep (EvalStatus_ a b) x
$cto :: forall a b x. Rep (EvalStatus_ a b) x -&gt; EvalStatus_ a b
$cfrom :: forall a b x. EvalStatus_ a b -&gt; Rep (EvalStatus_ a b) x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092476"><span id="local-6989586621679092478"><span id="local-6989586621679092491"><span class="annot"><span class="annottext">Int -&gt; EvalStatus_ a b -&gt; ShowS
[EvalStatus_ a b] -&gt; ShowS
EvalStatus_ a b -&gt; String
(Int -&gt; EvalStatus_ a b -&gt; ShowS)
-&gt; (EvalStatus_ a b -&gt; String)
-&gt; ([EvalStatus_ a b] -&gt; ShowS)
-&gt; Show (EvalStatus_ a b)
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
forall a b. Show a =&gt; Int -&gt; EvalStatus_ a b -&gt; ShowS
forall a b. Show a =&gt; [EvalStatus_ a b] -&gt; ShowS
forall a b. Show a =&gt; EvalStatus_ a b -&gt; String
showList :: [EvalStatus_ a b] -&gt; ShowS
$cshowList :: forall a b. Show a =&gt; [EvalStatus_ a b] -&gt; ShowS
show :: EvalStatus_ a b -&gt; String
$cshow :: forall a b. Show a =&gt; EvalStatus_ a b -&gt; String
showsPrec :: Int -&gt; EvalStatus_ a b -&gt; ShowS
$cshowsPrec :: forall a b. Show a =&gt; Int -&gt; EvalStatus_ a b -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-375"></span><span>
</span><span id="line-376"></span><span id="local-6989586621679095215"><span id="local-6989586621679095216"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092470"><span id="local-6989586621679092472"><span id="local-6989586621679092474"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095216"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalStatus_"><span class="hs-identifier hs-type">EvalStatus_</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095216"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095215"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span></span></span></span><span>
</span><span id="line-377"></span><span>
</span><span id="line-378"></span><span id="local-6989586621679092468"><span id="local-6989586621679092469"></span></span><span class="hs-keyword">data</span><span> </span><span id="EvalResult"><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-var">EvalResult</span></a></span></span><span> </span><span id="local-6989586621679095211"><span class="annot"><a href="#local-6989586621679095211"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-379"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="EvalException"><span class="annot"><a href="GHCi.Message.html#EvalException"><span class="hs-identifier hs-var">EvalException</span></a></span></span><span> </span><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier hs-type">SerializableException</span></a></span><span>
</span><span id="line-380"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="EvalSuccess"><span class="annot"><a href="GHCi.Message.html#EvalSuccess"><span class="hs-identifier hs-var">EvalSuccess</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679095211"><span class="hs-identifier hs-type">a</span></a></span><span>
</span><span id="line-381"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. EvalResult a -&gt; Rep (EvalResult a) x)
-&gt; (forall x. Rep (EvalResult a) x -&gt; EvalResult a)
-&gt; Generic (EvalResult a)
forall x. Rep (EvalResult a) x -&gt; EvalResult a
forall x. EvalResult a -&gt; Rep (EvalResult a) x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
forall a x. Rep (EvalResult a) x -&gt; EvalResult a
forall a x. EvalResult a -&gt; Rep (EvalResult a) x
$cto :: forall a x. Rep (EvalResult a) x -&gt; EvalResult a
$cfrom :: forall a x. EvalResult a -&gt; Rep (EvalResult a) x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092454"><span id="local-6989586621679092456"><span id="local-6989586621679092462"><span class="annot"><span class="annottext">Int -&gt; EvalResult a -&gt; ShowS
[EvalResult a] -&gt; ShowS
EvalResult a -&gt; String
(Int -&gt; EvalResult a -&gt; ShowS)
-&gt; (EvalResult a -&gt; String)
-&gt; ([EvalResult a] -&gt; ShowS)
-&gt; Show (EvalResult a)
forall a. Show a =&gt; Int -&gt; EvalResult a -&gt; ShowS
forall a. Show a =&gt; [EvalResult a] -&gt; ShowS
forall a. Show a =&gt; EvalResult a -&gt; String
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [EvalResult a] -&gt; ShowS
$cshowList :: forall a. Show a =&gt; [EvalResult a] -&gt; ShowS
show :: EvalResult a -&gt; String
$cshow :: forall a. Show a =&gt; EvalResult a -&gt; String
showsPrec :: Int -&gt; EvalResult a -&gt; ShowS
$cshowsPrec :: forall a. Show a =&gt; Int -&gt; EvalResult a -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-382"></span><span>
</span><span id="line-383"></span><span id="local-6989586621679095217"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092448"><span id="local-6989586621679092450"><span id="local-6989586621679092452"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095217"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EvalResult"><span class="hs-identifier hs-type">EvalResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095217"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-384"></span><span>
</span><span id="line-385"></span><span class="hs-comment">-- SomeException can't be serialized because it contains dynamic</span><span>
</span><span id="line-386"></span><span class="hs-comment">-- types.  However, we do very limited things with the exceptions that</span><span>
</span><span id="line-387"></span><span class="hs-comment">-- are thrown by interpreted computations:</span><span>
</span><span id="line-388"></span><span class="hs-comment">--</span><span>
</span><span id="line-389"></span><span class="hs-comment">-- * We print them, e.g. &quot;*** Exception: &lt;something&gt;&quot;</span><span>
</span><span id="line-390"></span><span class="hs-comment">-- * UserInterrupt has a special meaning</span><span>
</span><span id="line-391"></span><span class="hs-comment">-- * In ghc -e, exitWith should exit with the appropriate exit code</span><span>
</span><span id="line-392"></span><span class="hs-comment">--</span><span>
</span><span id="line-393"></span><span class="hs-comment">-- So all we need to do is distinguish UserInterrupt and ExitCode, and</span><span>
</span><span id="line-394"></span><span class="hs-comment">-- all other exceptions can be represented by their 'show' string.</span><span>
</span><span id="line-395"></span><span class="hs-comment">--</span><span>
</span><span id="line-396"></span><span id="local-6989586621679092446"><span id="local-6989586621679092447"></span></span><span class="hs-keyword">data</span><span> </span><span id="SerializableException"><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier hs-var">SerializableException</span></a></span></span><span>
</span><span id="line-397"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="EUserInterrupt"><span class="annot"><a href="GHCi.Message.html#EUserInterrupt"><span class="hs-identifier hs-var">EUserInterrupt</span></a></span></span><span>
</span><span id="line-398"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="EExitCode"><span class="annot"><a href="GHCi.Message.html#EExitCode"><span class="hs-identifier hs-var">EExitCode</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Exception.html#ExitCode"><span class="hs-identifier hs-type">ExitCode</span></a></span><span>
</span><span id="line-399"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="EOtherException"><span class="annot"><a href="GHCi.Message.html#EOtherException"><span class="hs-identifier hs-var">EOtherException</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-400"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. SerializableException -&gt; Rep SerializableException x)
-&gt; (forall x. Rep SerializableException x -&gt; SerializableException)
-&gt; Generic SerializableException
forall x. Rep SerializableException x -&gt; SerializableException
forall x. SerializableException -&gt; Rep SerializableException x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep SerializableException x -&gt; SerializableException
$cfrom :: forall x. SerializableException -&gt; Rep SerializableException x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092430"><span id="local-6989586621679092432"><span id="local-6989586621679092439"><span class="annot"><span class="annottext">Int -&gt; SerializableException -&gt; ShowS
[SerializableException] -&gt; ShowS
SerializableException -&gt; String
(Int -&gt; SerializableException -&gt; ShowS)
-&gt; (SerializableException -&gt; String)
-&gt; ([SerializableException] -&gt; ShowS)
-&gt; Show SerializableException
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [SerializableException] -&gt; ShowS
$cshowList :: [SerializableException] -&gt; ShowS
show :: SerializableException -&gt; String
$cshow :: SerializableException -&gt; String
showsPrec :: Int -&gt; SerializableException -&gt; ShowS
$cshowsPrec :: Int -&gt; SerializableException -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-401"></span><span>
</span><span id="line-402"></span><span class="annot"><a href="GHCi.Message.html#toSerializableException"><span class="hs-identifier hs-type">toSerializableException</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Exception.Type.html#SomeException"><span class="hs-identifier hs-type">SomeException</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier hs-type">SerializableException</span></a></span><span>
</span><span id="line-403"></span><span id="toSerializableException"><span class="annot"><span class="annottext">toSerializableException :: SomeException -&gt; SerializableException
</span><a href="GHCi.Message.html#toSerializableException"><span class="hs-identifier hs-var hs-var">toSerializableException</span></a></span></span><span> </span><span id="local-6989586621679092429"><span class="annot"><span class="annottext">SomeException
</span><a href="#local-6989586621679092429"><span class="hs-identifier hs-var">ex</span></a></span></span><span>
</span><span id="line-404"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">AsyncException
</span><a href="../../base/src/GHC.IO.Exception.html#UserInterrupt"><span class="hs-identifier hs-var">UserInterrupt</span></a></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">SomeException -&gt; Maybe AsyncException
forall e. Exception e =&gt; SomeException -&gt; Maybe e
</span><a href="../../base/src/GHC.Exception.Type.html#fromException"><span class="hs-identifier hs-var">fromException</span></a></span><span> </span><span class="annot"><span class="annottext">SomeException
</span><a href="#local-6989586621679092429"><span class="hs-identifier hs-var">ex</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SerializableException
</span><a href="GHCi.Message.html#EUserInterrupt"><span class="hs-identifier hs-var">EUserInterrupt</span></a></span><span>
</span><span id="line-405"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679092426"><span class="annot"><span class="annottext">ExitCode
</span><a href="#local-6989586621679092426"><span class="hs-identifier hs-var">ec</span></a></span></span><span class="hs-glyph">::</span><span class="annot"><a href="../../base/src/GHC.IO.Exception.html#ExitCode"><span class="hs-identifier hs-type">ExitCode</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">SomeException -&gt; Maybe ExitCode
forall e. Exception e =&gt; SomeException -&gt; Maybe e
</span><a href="../../base/src/GHC.Exception.Type.html#fromException"><span class="hs-identifier hs-var">fromException</span></a></span><span> </span><span class="annot"><span class="annottext">SomeException
</span><a href="#local-6989586621679092429"><span class="hs-identifier hs-var">ex</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ExitCode -&gt; SerializableException
</span><a href="GHCi.Message.html#EExitCode"><span class="hs-identifier hs-var">EExitCode</span></a></span><span> </span><span class="annot"><span class="annottext">ExitCode
</span><a href="#local-6989586621679092426"><span class="hs-identifier hs-var">ec</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-406"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; SerializableException
</span><a href="GHCi.Message.html#EOtherException"><span class="hs-identifier hs-var">EOtherException</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SomeException -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SomeException
</span><a href="#local-6989586621679092429"><span class="hs-identifier hs-var">ex</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Exception.Type.html#SomeException"><span class="hs-identifier hs-type">SomeException</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-407"></span><span>
</span><span id="line-408"></span><span class="annot"><a href="GHCi.Message.html#fromSerializableException"><span class="hs-identifier hs-type">fromSerializableException</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier hs-type">SerializableException</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Exception.Type.html#SomeException"><span class="hs-identifier hs-type">SomeException</span></a></span><span>
</span><span id="line-409"></span><span id="fromSerializableException"><span class="annot"><span class="annottext">fromSerializableException :: SerializableException -&gt; SomeException
</span><a href="GHCi.Message.html#fromSerializableException"><span class="hs-identifier hs-var hs-var">fromSerializableException</span></a></span></span><span> </span><span class="annot"><span class="annottext">SerializableException
</span><a href="GHCi.Message.html#EUserInterrupt"><span class="hs-identifier hs-var">EUserInterrupt</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">AsyncException -&gt; SomeException
forall e. Exception e =&gt; e -&gt; SomeException
</span><a href="../../base/src/GHC.Exception.Type.html#toException"><span class="hs-identifier hs-var">toException</span></a></span><span> </span><span class="annot"><span class="annottext">AsyncException
</span><a href="../../base/src/GHC.IO.Exception.html#UserInterrupt"><span class="hs-identifier hs-var">UserInterrupt</span></a></span><span>
</span><span id="line-410"></span><span class="annot"><a href="GHCi.Message.html#fromSerializableException"><span class="hs-identifier hs-var">fromSerializableException</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EExitCode"><span class="hs-identifier hs-type">EExitCode</span></a></span><span> </span><span id="local-6989586621679092424"><span class="annot"><span class="annottext">ExitCode
</span><a href="#local-6989586621679092424"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ExitCode -&gt; SomeException
forall e. Exception e =&gt; e -&gt; SomeException
</span><a href="../../base/src/GHC.Exception.Type.html#toException"><span class="hs-identifier hs-var">toException</span></a></span><span> </span><span class="annot"><span class="annottext">ExitCode
</span><a href="#local-6989586621679092424"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-411"></span><span class="annot"><a href="GHCi.Message.html#fromSerializableException"><span class="hs-identifier hs-var">fromSerializableException</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#EOtherException"><span class="hs-identifier hs-type">EOtherException</span></a></span><span> </span><span id="local-6989586621679092423"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092423"><span class="hs-identifier hs-var">str</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ErrorCall -&gt; SomeException
forall e. Exception e =&gt; e -&gt; SomeException
</span><a href="../../base/src/GHC.Exception.Type.html#toException"><span class="hs-identifier hs-var">toException</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ErrorCall
</span><a href="../../base/src/GHC.Exception.html#ErrorCall"><span class="hs-identifier hs-var">ErrorCall</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092423"><span class="hs-identifier hs-var">str</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-412"></span><span>
</span><span id="line-413"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092416"><span id="local-6989586621679092418"><span id="local-6989586621679092420"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Exception.html#ExitCode"><span class="hs-identifier hs-type">ExitCode</span></a></span></span></span></span><span>
</span><span id="line-414"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092410"><span id="local-6989586621679092412"><span id="local-6989586621679092414"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#SerializableException"><span class="hs-identifier hs-type">SerializableException</span></a></span></span></span></span><span>
</span><span id="line-415"></span><span>
</span><span id="line-416"></span><span id="local-6989586621679092408"><span id="local-6989586621679092409"></span></span><span class="hs-keyword">data</span><span> </span><span id="THResult"><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-var">THResult</span></a></span></span><span> </span><span id="local-6989586621679095207"><span class="annot"><a href="#local-6989586621679095207"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-417"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="THException"><span class="annot"><a href="GHCi.Message.html#THException"><span class="hs-identifier hs-var">THException</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-418"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="THComplete"><span class="annot"><a href="GHCi.Message.html#THComplete"><span class="hs-identifier hs-var">THComplete</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679095207"><span class="hs-identifier hs-type">a</span></a></span><span>
</span><span id="line-419"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall x. THResult a -&gt; Rep (THResult a) x)
-&gt; (forall x. Rep (THResult a) x -&gt; THResult a)
-&gt; Generic (THResult a)
forall x. Rep (THResult a) x -&gt; THResult a
forall x. THResult a -&gt; Rep (THResult a) x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
forall a x. Rep (THResult a) x -&gt; THResult a
forall a x. THResult a -&gt; Rep (THResult a) x
$cto :: forall a x. Rep (THResult a) x -&gt; THResult a
$cfrom :: forall a x. THResult a -&gt; Rep (THResult a) x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092394"><span id="local-6989586621679092396"><span id="local-6989586621679092402"><span class="annot"><span class="annottext">Int -&gt; THResult a -&gt; ShowS
[THResult a] -&gt; ShowS
THResult a -&gt; String
(Int -&gt; THResult a -&gt; ShowS)
-&gt; (THResult a -&gt; String)
-&gt; ([THResult a] -&gt; ShowS)
-&gt; Show (THResult a)
forall a. Show a =&gt; Int -&gt; THResult a -&gt; ShowS
forall a. Show a =&gt; [THResult a] -&gt; ShowS
forall a. Show a =&gt; THResult a -&gt; String
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [THResult a] -&gt; ShowS
$cshowList :: forall a. Show a =&gt; [THResult a] -&gt; ShowS
show :: THResult a -&gt; String
$cshow :: forall a. Show a =&gt; THResult a -&gt; String
showsPrec :: Int -&gt; THResult a -&gt; ShowS
$cshowsPrec :: forall a. Show a =&gt; Int -&gt; THResult a -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-420"></span><span>
</span><span id="line-421"></span><span id="local-6989586621679095212"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092388"><span id="local-6989586621679092390"><span id="local-6989586621679092392"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095212"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#THResult"><span class="hs-identifier hs-type">THResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095212"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-422"></span><span>
</span><span id="line-423"></span><span id="local-6989586621679092386"><span id="local-6989586621679092387"></span></span><span class="hs-keyword">data</span><span> </span><span id="THResultType"><span class="annot"><a href="GHCi.Message.html#THResultType"><span class="hs-identifier hs-var">THResultType</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="THExp"><span class="annot"><a href="GHCi.Message.html#THExp"><span class="hs-identifier hs-var">THExp</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="THPat"><span class="annot"><a href="GHCi.Message.html#THPat"><span class="hs-identifier hs-var">THPat</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="THType"><span class="annot"><a href="GHCi.Message.html#THType"><span class="hs-identifier hs-var">THType</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="THDec"><span class="annot"><a href="GHCi.Message.html#THDec"><span class="hs-identifier hs-var">THDec</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="THAnnWrapper"><span class="annot"><a href="GHCi.Message.html#THAnnWrapper"><span class="hs-identifier hs-var">THAnnWrapper</span></a></span></span><span>
</span><span id="line-424"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679092345"><span id="local-6989586621679092347"><span id="local-6989586621679092351"><span id="local-6989586621679092355"><span id="local-6989586621679092357"><span id="local-6989586621679092365"><span id="local-6989586621679092371"><span id="local-6989586621679092379"><span class="annot"><span class="annottext">Int -&gt; THResultType
THResultType -&gt; Int
THResultType -&gt; [THResultType]
THResultType -&gt; THResultType
THResultType -&gt; THResultType -&gt; [THResultType]
THResultType -&gt; THResultType -&gt; THResultType -&gt; [THResultType]
(THResultType -&gt; THResultType)
-&gt; (THResultType -&gt; THResultType)
-&gt; (Int -&gt; THResultType)
-&gt; (THResultType -&gt; Int)
-&gt; (THResultType -&gt; [THResultType])
-&gt; (THResultType -&gt; THResultType -&gt; [THResultType])
-&gt; (THResultType -&gt; THResultType -&gt; [THResultType])
-&gt; (THResultType -&gt; THResultType -&gt; THResultType -&gt; [THResultType])
-&gt; Enum THResultType
forall a.
(a -&gt; a)
-&gt; (a -&gt; a)
-&gt; (Int -&gt; a)
-&gt; (a -&gt; Int)
-&gt; (a -&gt; [a])
-&gt; (a -&gt; a -&gt; [a])
-&gt; (a -&gt; a -&gt; [a])
-&gt; (a -&gt; a -&gt; a -&gt; [a])
-&gt; Enum a
enumFromThenTo :: THResultType -&gt; THResultType -&gt; THResultType -&gt; [THResultType]
$cenumFromThenTo :: THResultType -&gt; THResultType -&gt; THResultType -&gt; [THResultType]
enumFromTo :: THResultType -&gt; THResultType -&gt; [THResultType]
$cenumFromTo :: THResultType -&gt; THResultType -&gt; [THResultType]
enumFromThen :: THResultType -&gt; THResultType -&gt; [THResultType]
$cenumFromThen :: THResultType -&gt; THResultType -&gt; [THResultType]
enumFrom :: THResultType -&gt; [THResultType]
$cenumFrom :: THResultType -&gt; [THResultType]
fromEnum :: THResultType -&gt; Int
$cfromEnum :: THResultType -&gt; Int
toEnum :: Int -&gt; THResultType
$ctoEnum :: Int -&gt; THResultType
pred :: THResultType -&gt; THResultType
$cpred :: THResultType -&gt; THResultType
succ :: THResultType -&gt; THResultType
$csucc :: THResultType -&gt; THResultType
</span><a href="../../base/src/GHC.Enum.html#Enum"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Enum</span></a></span></span></span></span></span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679092338"><span id="local-6989586621679092340"><span id="local-6989586621679092342"><span class="annot"><span class="annottext">Int -&gt; THResultType -&gt; ShowS
[THResultType] -&gt; ShowS
THResultType -&gt; String
(Int -&gt; THResultType -&gt; ShowS)
-&gt; (THResultType -&gt; String)
-&gt; ([THResultType] -&gt; ShowS)
-&gt; Show THResultType
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [THResultType] -&gt; ShowS
$cshowList :: [THResultType] -&gt; ShowS
show :: THResultType -&gt; String
$cshow :: THResultType -&gt; String
showsPrec :: Int -&gt; THResultType -&gt; ShowS
$cshowsPrec :: Int -&gt; THResultType -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. THResultType -&gt; Rep THResultType x)
-&gt; (forall x. Rep THResultType x -&gt; THResultType)
-&gt; Generic THResultType
forall x. Rep THResultType x -&gt; THResultType
forall x. THResultType -&gt; Rep THResultType x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep THResultType x -&gt; THResultType
$cfrom :: forall x. THResultType -&gt; Rep THResultType x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-425"></span><span>
</span><span id="line-426"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092330"><span id="local-6989586621679092332"><span id="local-6989586621679092334"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#THResultType"><span class="hs-identifier hs-type">THResultType</span></a></span></span></span></span><span>
</span><span id="line-427"></span><span>
</span><span id="line-428"></span><span class="hs-comment">-- | The server-side Template Haskell state.  This is created by the</span><span>
</span><span id="line-429"></span><span class="hs-comment">-- StartTH message.  A new one is created per module that GHC</span><span>
</span><span id="line-430"></span><span class="hs-comment">-- typechecks.</span><span>
</span><span id="line-431"></span><span class="hs-keyword">data</span><span> </span><span id="QState"><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-var">QState</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="QState"><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-var">QState</span></a></span></span><span>
</span><span id="line-432"></span><span>  </span><span class="hs-special">{</span><span> </span><span id="qsMap"><span class="annot"><span class="annottext">QState -&gt; Map TypeRep Dynamic
</span><a href="GHCi.Message.html#qsMap"><span class="hs-identifier hs-var hs-var">qsMap</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../containers/src/Data.Map.Internal.html#Map"><span class="hs-identifier hs-type">Map</span></a></span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.html#TypeRep"><span class="hs-identifier hs-type">TypeRep</span></a></span><span> </span><span class="annot"><a href="../../base/src/Data.Dynamic.html#Dynamic"><span class="hs-identifier hs-type">Dynamic</span></a></span><span>
</span><span id="line-433"></span><span>       </span><span class="hs-comment">-- ^ persistent data between splices in a module</span><span>
</span><span id="line-434"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="qsLocation"><span class="annot"><span class="annottext">QState -&gt; Maybe Loc
</span><a href="GHCi.Message.html#qsLocation"><span class="hs-identifier hs-var hs-var">qsLocation</span></a></span></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../rts/src/Language.Haskell.TH.Syntax.html#Loc"><span class="hs-identifier hs-type">TH.Loc</span></a></span><span>
</span><span id="line-435"></span><span>       </span><span class="hs-comment">-- ^ location for current splice, if any</span><span>
</span><span id="line-436"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="qsPipe"><span class="annot"><span class="annottext">QState -&gt; Pipe
</span><a href="GHCi.Message.html#qsPipe"><span class="hs-identifier hs-var hs-var">qsPipe</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span>
</span><span id="line-437"></span><span>       </span><span class="hs-comment">-- ^ pipe to communicate with GHC</span><span>
</span><span id="line-438"></span><span>  </span><span class="hs-special">}</span><span>
</span><span id="line-439"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092321"><span id="local-6989586621679092324"><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#QState"><span class="hs-identifier hs-type">QState</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679092320"><span class="annot"><span class="annottext">show :: QState -&gt; String
</span><a href="#local-6989586621679092320"><span class="hs-identifier hs-var hs-var hs-var hs-var">show</span></a></span></span><span> </span><span class="annot"><span class="annottext">QState
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&lt;QState&gt;&quot;</span></span><span>
</span><span id="line-440"></span><span>
</span><span id="line-441"></span><span class="hs-comment">-- Orphan instances of Binary for Ptr / FunPtr by conversion to Word64.</span><span>
</span><span id="line-442"></span><span class="hs-comment">-- This is to support Binary StgInfoTable which includes these.</span><span>
</span><span id="line-443"></span><span id="local-6989586621679095160"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092316"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095160"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-444"></span><span>  </span><span id="local-6989586621679092310"><span class="annot"><span class="annottext">put :: Ptr a -&gt; Put
</span><a href="#local-6989586621679092310"><span class="hs-identifier hs-var hs-var hs-var hs-var">put</span></a></span></span><span> </span><span id="local-6989586621679092309"><span class="annot"><span class="annottext">Ptr a
</span><a href="#local-6989586621679092309"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Word64 -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">WordPtr -&gt; Word64
forall a b. (Integral a, Num b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#fromIntegral"><span class="hs-identifier hs-var">fromIntegral</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Ptr a -&gt; WordPtr
forall a. Ptr a -&gt; WordPtr
</span><a href="../../base/src/Foreign.Ptr.html#ptrToWordPtr"><span class="hs-identifier hs-var">ptrToWordPtr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr a
</span><a href="#local-6989586621679092309"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word64"><span class="hs-identifier hs-type">Word64</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-445"></span><span>  </span><span id="local-6989586621679092301"><span class="annot"><span class="annottext">get :: Get (Ptr a)
</span><a href="#local-6989586621679092301"><span class="hs-identifier hs-var hs-var hs-var hs-var">get</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">WordPtr -&gt; Ptr a
forall a. WordPtr -&gt; Ptr a
</span><a href="../../base/src/Foreign.Ptr.html#wordPtrToPtr"><span class="hs-identifier hs-var">wordPtrToPtr</span></a></span><span> </span><span class="annot"><span class="annottext">(WordPtr -&gt; Ptr a) -&gt; (Word64 -&gt; WordPtr) -&gt; Word64 -&gt; Ptr a
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Word64 -&gt; WordPtr
forall a b. (Integral a, Num b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#fromIntegral"><span class="hs-identifier hs-var">fromIntegral</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Word64 -&gt; Ptr a) -&gt; Get Word64 -&gt; Get (Ptr a)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Get Word64
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.Internal.html#Get"><span class="hs-identifier hs-type">Get</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word64"><span class="hs-identifier hs-type">Word64</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-446"></span><span>
</span><span id="line-447"></span><span id="local-6989586621679095151"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092295"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#FunPtr"><span class="hs-identifier hs-type">FunPtr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095151"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-448"></span><span>  </span><span id="local-6989586621679092293"><span class="annot"><span class="annottext">put :: FunPtr a -&gt; Put
</span><a href="#local-6989586621679092293"><span class="hs-identifier hs-var hs-var hs-var hs-var">put</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ptr Any -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">(Ptr Any -&gt; Put) -&gt; (FunPtr a -&gt; Ptr Any) -&gt; FunPtr a -&gt; Put
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">FunPtr a -&gt; Ptr Any
forall a b. FunPtr a -&gt; Ptr b
</span><a href="../../base/src/GHC.Ptr.html#castFunPtrToPtr"><span class="hs-identifier hs-var">castFunPtrToPtr</span></a></span><span>
</span><span id="line-449"></span><span>  </span><span id="local-6989586621679092289"><span class="annot"><span class="annottext">get :: Get (FunPtr a)
</span><a href="#local-6989586621679092289"><span class="hs-identifier hs-var hs-var hs-var hs-var">get</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ptr Any -&gt; FunPtr a
forall a b. Ptr a -&gt; FunPtr b
</span><a href="../../base/src/GHC.Ptr.html#castPtrToFunPtr"><span class="hs-identifier hs-var">castPtrToFunPtr</span></a></span><span> </span><span class="annot"><span class="annottext">(Ptr Any -&gt; FunPtr a) -&gt; Get (Ptr Any) -&gt; Get (FunPtr a)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Ptr Any)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span></span><span>
</span><span id="line-450"></span><span>
</span><span id="line-451"></span><span class="hs-comment">-- Binary instances to support the GetClosure message</span><span>
</span><span id="line-452"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092282"><span id="local-6989586621679092284"><span id="local-6989586621679092286"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.InfoTable.Types.html#StgInfoTable"><span class="hs-identifier hs-type">StgInfoTable</span></a></span></span></span></span><span>
</span><span id="line-453"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092276"><span id="local-6989586621679092278"><span id="local-6989586621679092280"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.ClosureTypes.html#ClosureType"><span class="hs-identifier hs-type">ClosureType</span></a></span></span></span></span><span>
</span><span id="line-454"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092270"><span id="local-6989586621679092272"><span id="local-6989586621679092274"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.Closures.html#PrimType"><span class="hs-identifier hs-type">PrimType</span></a></span></span></span></span><span>
</span><span id="line-455"></span><span id="local-6989586621679095214"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679092264"><span id="local-6989586621679092266"><span id="local-6989586621679092268"><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095214"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-heap/src/GHC.Exts.Heap.Closures.html#GenClosure"><span class="hs-identifier hs-type">GenClosure</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095214"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-456"></span><span>
</span><span id="line-457"></span><span class="hs-keyword">data</span><span> </span><span id="Msg"><span class="annot"><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679095145"><span class="annot"><a href="#local-6989586621679095145"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095145"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095145"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span id="Msg"><span class="annot"><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095145"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-458"></span><span>
</span><span id="line-459"></span><span class="annot"><a href="GHCi.Message.html#getMessage"><span class="hs-identifier hs-type">getMessage</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.Internal.html#Get"><span class="hs-identifier hs-type">Get</span></a></span><span> </span><span class="annot"><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-type">Msg</span></a></span><span>
</span><span id="line-460"></span><span id="getMessage"><span class="annot"><span class="annottext">getMessage :: Get Msg
</span><a href="GHCi.Message.html#getMessage"><span class="hs-identifier hs-var hs-var">getMessage</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-461"></span><span>    </span><span id="local-6989586621679092262"><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092262"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Get Word8
</span><a href="../../binary/src/Data.Binary.Get.html#getWord8"><span class="hs-identifier hs-var">getWord8</span></a></span><span>
</span><span id="line-462"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092262"><span class="hs-identifier hs-var">b</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-463"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">0</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Get (Message ())
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Message ()
</span><a href="GHCi.Message.html#Shutdown"><span class="hs-identifier hs-var">Shutdown</span></a></span><span>
</span><span id="line-464"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">1</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Get (Message ())
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Message ()
</span><a href="GHCi.Message.html#InitLinker"><span class="hs-identifier hs-var">InitLinker</span></a></span><span>
</span><span id="line-465"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">2</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (Maybe (RemotePtr ())) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (Maybe (RemotePtr ())) -&gt; Msg)
-&gt; (String -&gt; Message (Maybe (RemotePtr ()))) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message (Maybe (RemotePtr ()))
</span><a href="GHCi.Message.html#LookupSymbol"><span class="hs-identifier hs-var">LookupSymbol</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-466"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">3</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (Maybe HValueRef) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (Maybe HValueRef) -&gt; Msg)
-&gt; (String -&gt; Message (Maybe HValueRef)) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message (Maybe HValueRef)
</span><a href="GHCi.Message.html#LookupClosure"><span class="hs-identifier hs-var">LookupClosure</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-467"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">4</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (Maybe String) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (Maybe String) -&gt; Msg)
-&gt; (String -&gt; Message (Maybe String)) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message (Maybe String)
</span><a href="GHCi.Message.html#LoadDLL"><span class="hs-identifier hs-var">LoadDLL</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-468"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">5</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; (String -&gt; Message ()) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message ()
</span><a href="GHCi.Message.html#LoadArchive"><span class="hs-identifier hs-var">LoadArchive</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-469"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">6</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; (String -&gt; Message ()) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message ()
</span><a href="GHCi.Message.html#LoadObj"><span class="hs-identifier hs-var">LoadObj</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-470"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">7</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; (String -&gt; Message ()) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message ()
</span><a href="GHCi.Message.html#UnloadObj"><span class="hs-identifier hs-var">UnloadObj</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-471"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">8</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemotePtr ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemotePtr ()) -&gt; Msg)
-&gt; (String -&gt; Message (RemotePtr ())) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message (RemotePtr ())
</span><a href="GHCi.Message.html#AddLibrarySearchPath"><span class="hs-identifier hs-var">AddLibrarySearchPath</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-472"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">9</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message Bool -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message Bool -&gt; Msg)
-&gt; (RemotePtr () -&gt; Message Bool) -&gt; RemotePtr () -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr () -&gt; Message Bool
</span><a href="GHCi.Message.html#RemoveLibrarySearchPath"><span class="hs-identifier hs-var">RemoveLibrarySearchPath</span></a></span><span> </span><span class="annot"><span class="annottext">(RemotePtr () -&gt; Msg) -&gt; Get (RemotePtr ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemotePtr ())
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-473"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">10</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message Bool -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message Bool -&gt; Msg) -&gt; Get (Message Bool) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Message Bool -&gt; Get (Message Bool)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Message Bool
</span><a href="GHCi.Message.html#ResolveObjs"><span class="hs-identifier hs-var">ResolveObjs</span></a></span><span>
</span><span id="line-474"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">11</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (Maybe String) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (Maybe String) -&gt; Msg)
-&gt; (String -&gt; Message (Maybe String)) -&gt; String -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Message (Maybe String)
</span><a href="GHCi.Message.html#FindSystemLibrary"><span class="hs-identifier hs-var">FindSystemLibrary</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Msg) -&gt; Get String -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-475"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">12</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message [HValueRef] -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message [HValueRef] -&gt; Msg)
-&gt; ([ByteString] -&gt; Message [HValueRef]) -&gt; [ByteString] -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString] -&gt; Message [HValueRef]
</span><a href="GHCi.Message.html#CreateBCOs"><span class="hs-identifier hs-var">CreateBCOs</span></a></span><span> </span><span class="annot"><span class="annottext">([ByteString] -&gt; Msg) -&gt; Get [ByteString] -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [ByteString]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-476"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">13</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg)
-&gt; ([HValueRef] -&gt; Message ()) -&gt; [HValueRef] -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[HValueRef] -&gt; Message ()
</span><a href="GHCi.Message.html#FreeHValueRefs"><span class="hs-identifier hs-var">FreeHValueRefs</span></a></span><span> </span><span class="annot"><span class="annottext">([HValueRef] -&gt; Msg) -&gt; Get [HValueRef] -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [HValueRef]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-477"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">14</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemotePtr ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemotePtr ()) -&gt; Msg)
-&gt; (ByteString -&gt; Message (RemotePtr ())) -&gt; ByteString -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Message (RemotePtr ())
</span><a href="GHCi.Message.html#MallocData"><span class="hs-identifier hs-var">MallocData</span></a></span><span> </span><span class="annot"><span class="annottext">(ByteString -&gt; Msg) -&gt; Get ByteString -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get ByteString
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-478"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">15</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message [RemotePtr ()] -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message [RemotePtr ()] -&gt; Msg)
-&gt; ([ByteString] -&gt; Message [RemotePtr ()]) -&gt; [ByteString] -&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString] -&gt; Message [RemotePtr ()]
</span><a href="GHCi.Message.html#MallocStrings"><span class="hs-identifier hs-var">MallocStrings</span></a></span><span> </span><span class="annot"><span class="annottext">([ByteString] -&gt; Msg) -&gt; Get [ByteString] -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [ByteString]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-479"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">16</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemotePtr C_ffi_cif) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemotePtr C_ffi_cif) -&gt; Msg)
-&gt; Get (Message (RemotePtr C_ffi_cif)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FFIConv -&gt; [FFIType] -&gt; FFIType -&gt; Message (RemotePtr C_ffi_cif)
</span><a href="GHCi.Message.html#PrepFFI"><span class="hs-identifier hs-var">PrepFFI</span></a></span><span> </span><span class="annot"><span class="annottext">(FFIConv -&gt; [FFIType] -&gt; FFIType -&gt; Message (RemotePtr C_ffi_cif))
-&gt; Get FFIConv
-&gt; Get ([FFIType] -&gt; FFIType -&gt; Message (RemotePtr C_ffi_cif))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get FFIConv
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get ([FFIType] -&gt; FFIType -&gt; Message (RemotePtr C_ffi_cif))
-&gt; Get [FFIType] -&gt; Get (FFIType -&gt; Message (RemotePtr C_ffi_cif))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [FFIType]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (FFIType -&gt; Message (RemotePtr C_ffi_cif))
-&gt; Get FFIType -&gt; Get (Message (RemotePtr C_ffi_cif))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get FFIType
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-480"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">17</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg)
-&gt; (RemotePtr C_ffi_cif -&gt; Message ())
-&gt; RemotePtr C_ffi_cif
-&gt; Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr C_ffi_cif -&gt; Message ()
</span><a href="GHCi.Message.html#FreeFFI"><span class="hs-identifier hs-var">FreeFFI</span></a></span><span> </span><span class="annot"><span class="annottext">(RemotePtr C_ffi_cif -&gt; Msg)
-&gt; Get (RemotePtr C_ffi_cif) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemotePtr C_ffi_cif)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-481"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">18</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemotePtr StgInfoTable) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemotePtr StgInfoTable) -&gt; Msg)
-&gt; Get (Message (RemotePtr StgInfoTable)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool
-&gt; Int
-&gt; Int
-&gt; Int
-&gt; Int
-&gt; ByteString
-&gt; Message (RemotePtr StgInfoTable)
</span><a href="GHCi.Message.html#MkConInfoTable"><span class="hs-identifier hs-var">MkConInfoTable</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool
 -&gt; Int
 -&gt; Int
 -&gt; Int
 -&gt; Int
 -&gt; ByteString
 -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get Bool
-&gt; Get
     (Int
      -&gt; Int
      -&gt; Int
      -&gt; Int
      -&gt; ByteString
      -&gt; Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Bool
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get
  (Int
   -&gt; Int
   -&gt; Int
   -&gt; Int
   -&gt; ByteString
   -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get Int
-&gt; Get
     (Int
      -&gt; Int -&gt; Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get
  (Int
   -&gt; Int -&gt; Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get Int
-&gt; Get
     (Int -&gt; Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Int -&gt; Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get Int
-&gt; Get (Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Int -&gt; ByteString -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get Int -&gt; Get (ByteString -&gt; Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (ByteString -&gt; Message (RemotePtr StgInfoTable))
-&gt; Get ByteString -&gt; Get (Message (RemotePtr StgInfoTable))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get ByteString
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-482"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">19</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalStatus_ [HValueRef] [HValueRef]) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalStatus_ [HValueRef] [HValueRef]) -&gt; Msg)
-&gt; Get (Message (EvalStatus_ [HValueRef] [HValueRef])) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">EvalOpts
-&gt; EvalExpr HValueRef
-&gt; Message (EvalStatus_ [HValueRef] [HValueRef])
</span><a href="GHCi.Message.html#EvalStmt"><span class="hs-identifier hs-var">EvalStmt</span></a></span><span> </span><span class="annot"><span class="annottext">(EvalOpts
 -&gt; EvalExpr HValueRef
 -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
-&gt; Get EvalOpts
-&gt; Get
     (EvalExpr HValueRef
      -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get EvalOpts
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get
  (EvalExpr HValueRef
   -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
-&gt; Get (EvalExpr HValueRef)
-&gt; Get (Message (EvalStatus_ [HValueRef] [HValueRef]))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (EvalExpr HValueRef)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-483"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">20</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalStatus_ [HValueRef] [HValueRef]) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalStatus_ [HValueRef] [HValueRef]) -&gt; Msg)
-&gt; Get (Message (EvalStatus_ [HValueRef] [HValueRef])) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">EvalOpts
-&gt; RemoteRef (ResumeContext [HValueRef])
-&gt; Message (EvalStatus_ [HValueRef] [HValueRef])
</span><a href="GHCi.Message.html#ResumeStmt"><span class="hs-identifier hs-var">ResumeStmt</span></a></span><span> </span><span class="annot"><span class="annottext">(EvalOpts
 -&gt; RemoteRef (ResumeContext [HValueRef])
 -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
-&gt; Get EvalOpts
-&gt; Get
     (RemoteRef (ResumeContext [HValueRef])
      -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get EvalOpts
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get
  (RemoteRef (ResumeContext [HValueRef])
   -&gt; Message (EvalStatus_ [HValueRef] [HValueRef]))
-&gt; Get (RemoteRef (ResumeContext [HValueRef]))
-&gt; Get (Message (EvalStatus_ [HValueRef] [HValueRef]))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (ResumeContext [HValueRef]))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-484"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">21</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef]) -&gt; Message ()
</span><a href="GHCi.Message.html#AbandonStmt"><span class="hs-identifier hs-var">AbandonStmt</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef (ResumeContext [HValueRef]) -&gt; Message ())
-&gt; Get (RemoteRef (ResumeContext [HValueRef])) -&gt; Get (Message ())
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (ResumeContext [HValueRef]))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-485"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">22</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalResult String) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalResult String) -&gt; Msg)
-&gt; Get (Message (EvalResult String)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; Message (EvalResult String)
</span><a href="GHCi.Message.html#EvalString"><span class="hs-identifier hs-var">EvalString</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; Message (EvalResult String))
-&gt; Get HValueRef -&gt; Get (Message (EvalResult String))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-486"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">23</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalResult String) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalResult String) -&gt; Msg)
-&gt; Get (Message (EvalResult String)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; String -&gt; Message (EvalResult String)
</span><a href="GHCi.Message.html#EvalStringToString"><span class="hs-identifier hs-var">EvalStringToString</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; String -&gt; Message (EvalResult String))
-&gt; Get HValueRef -&gt; Get (String -&gt; Message (EvalResult String))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (String -&gt; Message (EvalResult String))
-&gt; Get String -&gt; Get (Message (EvalResult String))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-487"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">24</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalResult ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalResult ()) -&gt; Msg)
-&gt; Get (Message (EvalResult ())) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; Message (EvalResult ())
</span><a href="GHCi.Message.html#EvalIO"><span class="hs-identifier hs-var">EvalIO</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; Message (EvalResult ()))
-&gt; Get HValueRef -&gt; Get (Message (EvalResult ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-488"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">25</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message [RemotePtr CostCentre] -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message [RemotePtr CostCentre] -&gt; Msg)
-&gt; Get (Message [RemotePtr CostCentre]) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; [(String, String)] -&gt; Message [RemotePtr CostCentre]
</span><a href="GHCi.Message.html#MkCostCentres"><span class="hs-identifier hs-var">MkCostCentres</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; [(String, String)] -&gt; Message [RemotePtr CostCentre])
-&gt; Get String
-&gt; Get ([(String, String)] -&gt; Message [RemotePtr CostCentre])
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get String
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get ([(String, String)] -&gt; Message [RemotePtr CostCentre])
-&gt; Get [(String, String)] -&gt; Get (Message [RemotePtr CostCentre])
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [(String, String)]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-489"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">26</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message [String] -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message [String] -&gt; Msg) -&gt; Get (Message [String]) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemotePtr CostCentreStack -&gt; Message [String]
</span><a href="GHCi.Message.html#CostCentreStackInfo"><span class="hs-identifier hs-var">CostCentreStackInfo</span></a></span><span> </span><span class="annot"><span class="annottext">(RemotePtr CostCentreStack -&gt; Message [String])
-&gt; Get (RemotePtr CostCentreStack) -&gt; Get (Message [String])
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemotePtr CostCentreStack)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-490"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">27</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemoteRef BreakArray) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemoteRef BreakArray) -&gt; Msg)
-&gt; Get (Message (RemoteRef BreakArray)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Message (RemoteRef BreakArray)
</span><a href="GHCi.Message.html#NewBreakArray"><span class="hs-identifier hs-var">NewBreakArray</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Message (RemoteRef BreakArray))
-&gt; Get Int -&gt; Get (Message (RemoteRef BreakArray))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-491"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">28</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef BreakArray -&gt; Int -&gt; Bool -&gt; Message ()
</span><a href="GHCi.Message.html#EnableBreakpoint"><span class="hs-identifier hs-var">EnableBreakpoint</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef BreakArray -&gt; Int -&gt; Bool -&gt; Message ())
-&gt; Get (RemoteRef BreakArray) -&gt; Get (Int -&gt; Bool -&gt; Message ())
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef BreakArray)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Int -&gt; Bool -&gt; Message ())
-&gt; Get Int -&gt; Get (Bool -&gt; Message ())
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Bool -&gt; Message ()) -&gt; Get Bool -&gt; Get (Message ())
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Bool
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-492"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">29</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message Bool -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message Bool -&gt; Msg) -&gt; Get (Message Bool) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef BreakArray -&gt; Int -&gt; Message Bool
</span><a href="GHCi.Message.html#BreakpointStatus"><span class="hs-identifier hs-var">BreakpointStatus</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef BreakArray -&gt; Int -&gt; Message Bool)
-&gt; Get (RemoteRef BreakArray) -&gt; Get (Int -&gt; Message Bool)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef BreakArray)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Int -&gt; Message Bool) -&gt; Get Int -&gt; Get (Message Bool)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-493"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">30</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (Maybe HValueRef) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (Maybe HValueRef) -&gt; Msg)
-&gt; Get (Message (Maybe HValueRef)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; Int -&gt; Message (Maybe HValueRef)
</span><a href="GHCi.Message.html#GetBreakpointVar"><span class="hs-identifier hs-var">GetBreakpointVar</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; Int -&gt; Message (Maybe HValueRef))
-&gt; Get HValueRef -&gt; Get (Int -&gt; Message (Maybe HValueRef))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Int -&gt; Message (Maybe HValueRef))
-&gt; Get Int -&gt; Get (Message (Maybe HValueRef))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Int
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-494"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">31</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (RemoteRef (IORef QState)) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (RemoteRef (IORef QState)) -&gt; Msg)
-&gt; Get (Message (RemoteRef (IORef QState))) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Message (RemoteRef (IORef QState))
-&gt; Get (Message (RemoteRef (IORef QState)))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Message (RemoteRef (IORef QState))
</span><a href="GHCi.Message.html#StartTH"><span class="hs-identifier hs-var">StartTH</span></a></span><span>
</span><span id="line-495"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">32</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (QResult ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (QResult ()) -&gt; Msg)
-&gt; Get (Message (QResult ())) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef (IORef QState)
-&gt; [RemoteRef (Q ())] -&gt; Message (QResult ())
</span><a href="GHCi.Message.html#RunModFinalizers"><span class="hs-identifier hs-var">RunModFinalizers</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef (IORef QState)
 -&gt; [RemoteRef (Q ())] -&gt; Message (QResult ()))
-&gt; Get (RemoteRef (IORef QState))
-&gt; Get ([RemoteRef (Q ())] -&gt; Message (QResult ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (IORef QState))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get ([RemoteRef (Q ())] -&gt; Message (QResult ()))
-&gt; Get [RemoteRef (Q ())] -&gt; Get (Message (QResult ()))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get [RemoteRef (Q ())]
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-496"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">33</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Fingerprint -&gt; HValueRef -&gt; Message ()
</span><a href="GHCi.Message.html#AddSptEntry"><span class="hs-identifier hs-var">AddSptEntry</span></a></span><span> </span><span class="annot"><span class="annottext">(Fingerprint -&gt; HValueRef -&gt; Message ())
-&gt; Get Fingerprint -&gt; Get (HValueRef -&gt; Message ())
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get Fingerprint
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (HValueRef -&gt; Message ()) -&gt; Get HValueRef -&gt; Get (Message ())
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-497"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">34</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (QResult ByteString) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (QResult ByteString) -&gt; Msg)
-&gt; Get (Message (QResult ByteString)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef (IORef QState)
-&gt; HValueRef
-&gt; THResultType
-&gt; Maybe Loc
-&gt; Message (QResult ByteString)
</span><a href="GHCi.Message.html#RunTH"><span class="hs-identifier hs-var">RunTH</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef (IORef QState)
 -&gt; HValueRef
 -&gt; THResultType
 -&gt; Maybe Loc
 -&gt; Message (QResult ByteString))
-&gt; Get (RemoteRef (IORef QState))
-&gt; Get
     (HValueRef
      -&gt; THResultType -&gt; Maybe Loc -&gt; Message (QResult ByteString))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (IORef QState))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get
  (HValueRef
   -&gt; THResultType -&gt; Maybe Loc -&gt; Message (QResult ByteString))
-&gt; Get HValueRef
-&gt; Get (THResultType -&gt; Maybe Loc -&gt; Message (QResult ByteString))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (THResultType -&gt; Maybe Loc -&gt; Message (QResult ByteString))
-&gt; Get THResultType
-&gt; Get (Maybe Loc -&gt; Message (QResult ByteString))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get THResultType
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Maybe Loc -&gt; Message (QResult ByteString))
-&gt; Get (Maybe Loc) -&gt; Get (Message (QResult ByteString))
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (Maybe Loc)
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-498"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">35</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (GenClosure HValueRef) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (GenClosure HValueRef) -&gt; Msg)
-&gt; Get (Message (GenClosure HValueRef)) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; Message (GenClosure HValueRef)
</span><a href="GHCi.Message.html#GetClosure"><span class="hs-identifier hs-var">GetClosure</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; Message (GenClosure HValueRef))
-&gt; Get HValueRef -&gt; Get (Message (GenClosure HValueRef))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-499"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">36</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalStatus_ () ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalStatus_ () ()) -&gt; Msg)
-&gt; Get (Message (EvalStatus_ () ())) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HValueRef -&gt; Message (EvalStatus_ () ())
</span><a href="GHCi.Message.html#Seq"><span class="hs-identifier hs-var">Seq</span></a></span><span> </span><span class="annot"><span class="annottext">(HValueRef -&gt; Message (EvalStatus_ () ()))
-&gt; Get HValueRef -&gt; Get (Message (EvalStatus_ () ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get HValueRef
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-500"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">37</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message () -&gt; Msg) -&gt; Get (Message ()) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Message () -&gt; Get (Message ())
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Message ()
</span><a href="GHCi.Message.html#RtsRevertCAFs"><span class="hs-identifier hs-var">RtsRevertCAFs</span></a></span><span>
</span><span id="line-501"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">38</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Message (EvalStatus_ () ()) -&gt; Msg
forall a. (Binary a, Show a) =&gt; Message a -&gt; Msg
</span><a href="GHCi.Message.html#Msg"><span class="hs-identifier hs-var">Msg</span></a></span><span> </span><span class="annot"><span class="annottext">(Message (EvalStatus_ () ()) -&gt; Msg)
-&gt; Get (Message (EvalStatus_ () ())) -&gt; Get Msg
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">RemoteRef (ResumeContext ()) -&gt; Message (EvalStatus_ () ())
</span><a href="GHCi.Message.html#ResumeSeq"><span class="hs-identifier hs-var">ResumeSeq</span></a></span><span> </span><span class="annot"><span class="annottext">(RemoteRef (ResumeContext ()) -&gt; Message (EvalStatus_ () ()))
-&gt; Get (RemoteRef (ResumeContext ()))
-&gt; Get (Message (EvalStatus_ () ()))
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Get (RemoteRef (ResumeContext ()))
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-502"></span><span>      </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-identifier">_</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; Get Msg
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Get Msg) -&gt; String -&gt; Get Msg
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Unknown Message code &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word8 -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><a href="#local-6989586621679092262"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-503"></span><span>
</span><span id="line-504"></span><span id="local-6989586621679095141"><span class="annot"><a href="GHCi.Message.html#putMessage"><span class="hs-identifier hs-type">putMessage</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095141"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Put.html#Put"><span class="hs-identifier hs-type">Put</span></a></span></span><span>
</span><span id="line-505"></span><span id="putMessage"><span class="annot"><span class="annottext">putMessage :: forall a. Message a -&gt; Put
</span><a href="GHCi.Message.html#putMessage"><span class="hs-identifier hs-var hs-var">putMessage</span></a></span></span><span> </span><span id="local-6989586621679092261"><span class="annot"><span class="annottext">Message a
</span><a href="#local-6989586621679092261"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Message a
</span><a href="#local-6989586621679092261"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-506"></span><span>  </span><span class="annot"><span class="annottext">Message a
</span><a href="GHCi.Message.html#Shutdown"><span class="hs-identifier hs-var">Shutdown</span></a></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">0</span></span><span>
</span><span id="line-507"></span><span>  </span><span class="annot"><span class="annottext">Message a
</span><a href="GHCi.Message.html#InitLinker"><span class="hs-identifier hs-var">InitLinker</span></a></span><span>                  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">1</span></span><span>
</span><span id="line-508"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LookupSymbol"><span class="hs-identifier hs-type">LookupSymbol</span></a></span><span> </span><span id="local-6989586621679092252"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092252"><span class="hs-identifier hs-var">str</span></a></span></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">2</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092252"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-509"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LookupClosure"><span class="hs-identifier hs-type">LookupClosure</span></a></span><span> </span><span id="local-6989586621679092247"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092247"><span class="hs-identifier hs-var">str</span></a></span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">3</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092247"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-510"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LoadDLL"><span class="hs-identifier hs-type">LoadDLL</span></a></span><span> </span><span id="local-6989586621679092242"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092242"><span class="hs-identifier hs-var">str</span></a></span></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">4</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092242"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-511"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LoadArchive"><span class="hs-identifier hs-type">LoadArchive</span></a></span><span> </span><span id="local-6989586621679092237"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092237"><span class="hs-identifier hs-var">str</span></a></span></span><span>             </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">5</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092237"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-512"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#LoadObj"><span class="hs-identifier hs-type">LoadObj</span></a></span><span> </span><span id="local-6989586621679092232"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092232"><span class="hs-identifier hs-var">str</span></a></span></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">6</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092232"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-513"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#UnloadObj"><span class="hs-identifier hs-type">UnloadObj</span></a></span><span> </span><span id="local-6989586621679092227"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092227"><span class="hs-identifier hs-var">str</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">7</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092227"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-514"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddLibrarySearchPath"><span class="hs-identifier hs-type">AddLibrarySearchPath</span></a></span><span> </span><span id="local-6989586621679092222"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092222"><span class="hs-identifier hs-var">str</span></a></span></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">8</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092222"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-515"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#RemoveLibrarySearchPath"><span class="hs-identifier hs-type">RemoveLibrarySearchPath</span></a></span><span> </span><span id="local-6989586621679092217"><span class="annot"><span class="annottext">RemotePtr ()
</span><a href="#local-6989586621679092217"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">9</span></span><span>  </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr () -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr ()
</span><a href="#local-6989586621679092217"><span class="hs-identifier hs-var">ptr</span></a></span><span>
</span><span id="line-516"></span><span>  </span><span class="annot"><span class="annottext">Message a
</span><a href="GHCi.Message.html#ResolveObjs"><span class="hs-identifier hs-var">ResolveObjs</span></a></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">10</span></span><span>
</span><span id="line-517"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#FindSystemLibrary"><span class="hs-identifier hs-type">FindSystemLibrary</span></a></span><span> </span><span id="local-6989586621679092210"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092210"><span class="hs-identifier hs-var">str</span></a></span></span><span>       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092210"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-518"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#CreateBCOs"><span class="hs-identifier hs-type">CreateBCOs</span></a></span><span> </span><span id="local-6989586621679092205"><span class="annot"><span class="annottext">[ByteString]
</span><a href="#local-6989586621679092205"><span class="hs-identifier hs-var">bco</span></a></span></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString]
</span><a href="#local-6989586621679092205"><span class="hs-identifier hs-var">bco</span></a></span><span>
</span><span id="line-519"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#FreeHValueRefs"><span class="hs-identifier hs-type">FreeHValueRefs</span></a></span><span> </span><span id="local-6989586621679092200"><span class="annot"><span class="annottext">[HValueRef]
</span><a href="#local-6989586621679092200"><span class="hs-identifier hs-var">val</span></a></span></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">13</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[HValueRef] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[HValueRef]
</span><a href="#local-6989586621679092200"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-520"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#MallocData"><span class="hs-identifier hs-type">MallocData</span></a></span><span> </span><span id="local-6989586621679092195"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092195"><span class="hs-identifier hs-var">bs</span></a></span></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">14</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092195"><span class="hs-identifier hs-var">bs</span></a></span><span>
</span><span id="line-521"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#MallocStrings"><span class="hs-identifier hs-type">MallocStrings</span></a></span><span> </span><span id="local-6989586621679092190"><span class="annot"><span class="annottext">[ByteString]
</span><a href="#local-6989586621679092190"><span class="hs-identifier hs-var">bss</span></a></span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">15</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[ByteString]
</span><a href="#local-6989586621679092190"><span class="hs-identifier hs-var">bss</span></a></span><span>
</span><span id="line-522"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#PrepFFI"><span class="hs-identifier hs-type">PrepFFI</span></a></span><span> </span><span id="local-6989586621679092181"><span class="annot"><span class="annottext">FFIConv
</span><a href="#local-6989586621679092181"><span class="hs-identifier hs-var">conv</span></a></span></span><span> </span><span id="local-6989586621679092180"><span class="annot"><span class="annottext">[FFIType]
</span><a href="#local-6989586621679092180"><span class="hs-identifier hs-var">args</span></a></span></span><span> </span><span id="local-6989586621679092179"><span class="annot"><span class="annottext">FFIType
</span><a href="#local-6989586621679092179"><span class="hs-identifier hs-var">res</span></a></span></span><span>       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">16</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FFIConv -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">FFIConv
</span><a href="#local-6989586621679092181"><span class="hs-identifier hs-var">conv</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[FFIType] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[FFIType]
</span><a href="#local-6989586621679092180"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FFIType -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">FFIType
</span><a href="#local-6989586621679092179"><span class="hs-identifier hs-var">res</span></a></span><span>
</span><span id="line-523"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#FreeFFI"><span class="hs-identifier hs-type">FreeFFI</span></a></span><span> </span><span id="local-6989586621679092174"><span class="annot"><span class="annottext">RemotePtr C_ffi_cif
</span><a href="#local-6989586621679092174"><span class="hs-identifier hs-var">p</span></a></span></span><span>                   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">17</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr C_ffi_cif -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr C_ffi_cif
</span><a href="#local-6989586621679092174"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-524"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#MkConInfoTable"><span class="hs-identifier hs-type">MkConInfoTable</span></a></span><span> </span><span id="local-6989586621679092159"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092159"><span class="hs-identifier hs-var">tc</span></a></span></span><span> </span><span id="local-6989586621679092158"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092158"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679092157"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092157"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679092156"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092156"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span id="local-6989586621679092155"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092155"><span class="hs-identifier hs-var">pt</span></a></span></span><span> </span><span id="local-6989586621679092154"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092154"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">18</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092159"><span class="hs-identifier hs-var">tc</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092158"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092157"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092156"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092155"><span class="hs-identifier hs-var">pt</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092154"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-525"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EvalStmt"><span class="hs-identifier hs-type">EvalStmt</span></a></span><span> </span><span id="local-6989586621679092147"><span class="annot"><span class="annottext">EvalOpts
</span><a href="#local-6989586621679092147"><span class="hs-identifier hs-var">opts</span></a></span></span><span> </span><span id="local-6989586621679092146"><span class="annot"><span class="annottext">EvalExpr HValueRef
</span><a href="#local-6989586621679092146"><span class="hs-identifier hs-var">val</span></a></span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">19</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">EvalOpts -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">EvalOpts
</span><a href="#local-6989586621679092147"><span class="hs-identifier hs-var">opts</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">EvalExpr HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">EvalExpr HValueRef
</span><a href="#local-6989586621679092146"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-526"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ResumeStmt"><span class="hs-identifier hs-type">ResumeStmt</span></a></span><span> </span><span id="local-6989586621679092139"><span class="annot"><span class="annottext">EvalOpts
</span><a href="#local-6989586621679092139"><span class="hs-identifier hs-var">opts</span></a></span></span><span> </span><span id="local-6989586621679092138"><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef])
</span><a href="#local-6989586621679092138"><span class="hs-identifier hs-var">val</span></a></span></span><span>         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">20</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">EvalOpts -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">EvalOpts
</span><a href="#local-6989586621679092139"><span class="hs-identifier hs-var">opts</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef]) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef])
</span><a href="#local-6989586621679092138"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-527"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AbandonStmt"><span class="hs-identifier hs-type">AbandonStmt</span></a></span><span> </span><span id="local-6989586621679092133"><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef])
</span><a href="#local-6989586621679092133"><span class="hs-identifier hs-var">val</span></a></span></span><span>             </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">21</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef]) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext [HValueRef])
</span><a href="#local-6989586621679092133"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-528"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EvalString"><span class="hs-identifier hs-type">EvalString</span></a></span><span> </span><span id="local-6989586621679092128"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092128"><span class="hs-identifier hs-var">val</span></a></span></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">22</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092128"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-529"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EvalStringToString"><span class="hs-identifier hs-type">EvalStringToString</span></a></span><span> </span><span id="local-6989586621679092121"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092121"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span id="local-6989586621679092120"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092120"><span class="hs-identifier hs-var">val</span></a></span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">23</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092121"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092120"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-530"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EvalIO"><span class="hs-identifier hs-type">EvalIO</span></a></span><span> </span><span id="local-6989586621679092115"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092115"><span class="hs-identifier hs-var">val</span></a></span></span><span>                  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">24</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092115"><span class="hs-identifier hs-var">val</span></a></span><span>
</span><span id="line-531"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#MkCostCentres"><span class="hs-identifier hs-type">MkCostCentres</span></a></span><span> </span><span id="local-6989586621679092108"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092108"><span class="hs-identifier hs-var">mod</span></a></span></span><span> </span><span id="local-6989586621679092107"><span class="annot"><span class="annottext">[(String, String)]
</span><a href="#local-6989586621679092107"><span class="hs-identifier hs-var">ccs</span></a></span></span><span>       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">25</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679092108"><span class="hs-identifier hs-var">mod</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[(String, String)] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[(String, String)]
</span><a href="#local-6989586621679092107"><span class="hs-identifier hs-var">ccs</span></a></span><span>
</span><span id="line-532"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#CostCentreStackInfo"><span class="hs-identifier hs-type">CostCentreStackInfo</span></a></span><span> </span><span id="local-6989586621679092102"><span class="annot"><span class="annottext">RemotePtr CostCentreStack
</span><a href="#local-6989586621679092102"><span class="hs-identifier hs-var">ptr</span></a></span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">26</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr CostCentreStack -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemotePtr CostCentreStack
</span><a href="#local-6989586621679092102"><span class="hs-identifier hs-var">ptr</span></a></span><span>
</span><span id="line-533"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#NewBreakArray"><span class="hs-identifier hs-type">NewBreakArray</span></a></span><span> </span><span id="local-6989586621679092097"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092097"><span class="hs-identifier hs-var">sz</span></a></span></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">27</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092097"><span class="hs-identifier hs-var">sz</span></a></span><span>
</span><span id="line-534"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#EnableBreakpoint"><span class="hs-identifier hs-type">EnableBreakpoint</span></a></span><span> </span><span id="local-6989586621679092088"><span class="annot"><span class="annottext">RemoteRef BreakArray
</span><a href="#local-6989586621679092088"><span class="hs-identifier hs-var">arr</span></a></span></span><span> </span><span id="local-6989586621679092087"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092087"><span class="hs-identifier hs-var">ix</span></a></span></span><span> </span><span id="local-6989586621679092086"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092086"><span class="hs-identifier hs-var">b</span></a></span></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">28</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef BreakArray -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef BreakArray
</span><a href="#local-6989586621679092088"><span class="hs-identifier hs-var">arr</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092087"><span class="hs-identifier hs-var">ix</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679092086"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-535"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#BreakpointStatus"><span class="hs-identifier hs-type">BreakpointStatus</span></a></span><span> </span><span id="local-6989586621679092079"><span class="annot"><span class="annottext">RemoteRef BreakArray
</span><a href="#local-6989586621679092079"><span class="hs-identifier hs-var">arr</span></a></span></span><span> </span><span id="local-6989586621679092078"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092078"><span class="hs-identifier hs-var">ix</span></a></span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">29</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef BreakArray -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef BreakArray
</span><a href="#local-6989586621679092079"><span class="hs-identifier hs-var">arr</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092078"><span class="hs-identifier hs-var">ix</span></a></span><span>
</span><span id="line-536"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#GetBreakpointVar"><span class="hs-identifier hs-type">GetBreakpointVar</span></a></span><span> </span><span id="local-6989586621679092071"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092071"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092070"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092070"><span class="hs-identifier hs-var">b</span></a></span></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">30</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092071"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679092070"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-537"></span><span>  </span><span class="annot"><span class="annottext">Message a
</span><a href="GHCi.Message.html#StartTH"><span class="hs-identifier hs-var">StartTH</span></a></span><span>                     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">31</span></span><span>
</span><span id="line-538"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#RunModFinalizers"><span class="hs-identifier hs-type">RunModFinalizers</span></a></span><span> </span><span id="local-6989586621679092061"><span class="annot"><span class="annottext">RemoteRef (IORef QState)
</span><a href="#local-6989586621679092061"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092060"><span class="annot"><span class="annottext">[RemoteRef (Q ())]
</span><a href="#local-6989586621679092060"><span class="hs-identifier hs-var">b</span></a></span></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">32</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (IORef QState) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (IORef QState)
</span><a href="#local-6989586621679092061"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[RemoteRef (Q ())] -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">[RemoteRef (Q ())]
</span><a href="#local-6989586621679092060"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-539"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#AddSptEntry"><span class="hs-identifier hs-type">AddSptEntry</span></a></span><span> </span><span id="local-6989586621679092053"><span class="annot"><span class="annottext">Fingerprint
</span><a href="#local-6989586621679092053"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679092052"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092052"><span class="hs-identifier hs-var">b</span></a></span></span><span>             </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">33</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Fingerprint -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Fingerprint
</span><a href="#local-6989586621679092053"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092052"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-540"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#RunTH"><span class="hs-identifier hs-type">RunTH</span></a></span><span> </span><span id="local-6989586621679092041"><span class="annot"><span class="annottext">RemoteRef (IORef QState)
</span><a href="#local-6989586621679092041"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621679092040"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092040"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679092039"><span class="annot"><span class="annottext">THResultType
</span><a href="#local-6989586621679092039"><span class="hs-identifier hs-var">loc</span></a></span></span><span> </span><span id="local-6989586621679092038"><span class="annot"><span class="annottext">Maybe Loc
</span><a href="#local-6989586621679092038"><span class="hs-identifier hs-var">ty</span></a></span></span><span>           </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">34</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (IORef QState) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (IORef QState)
</span><a href="#local-6989586621679092041"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092040"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">THResultType -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">THResultType
</span><a href="#local-6989586621679092039"><span class="hs-identifier hs-var">loc</span></a></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Loc -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Loc
</span><a href="#local-6989586621679092038"><span class="hs-identifier hs-var">ty</span></a></span><span>
</span><span id="line-541"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#GetClosure"><span class="hs-identifier hs-type">GetClosure</span></a></span><span> </span><span id="local-6989586621679092033"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092033"><span class="hs-identifier hs-var">a</span></a></span></span><span>                </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">35</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092033"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-542"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#Seq"><span class="hs-identifier hs-type">Seq</span></a></span><span> </span><span id="local-6989586621679092028"><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092028"><span class="hs-identifier hs-var">a</span></a></span></span><span>                       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">36</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">HValueRef
</span><a href="#local-6989586621679092028"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-543"></span><span>  </span><span class="annot"><span class="annottext">Message a
</span><a href="GHCi.Message.html#RtsRevertCAFs"><span class="hs-identifier hs-var">RtsRevertCAFs</span></a></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">37</span></span><span>
</span><span id="line-544"></span><span>  </span><span class="annot"><a href="GHCi.Message.html#ResumeSeq"><span class="hs-identifier hs-type">ResumeSeq</span></a></span><span> </span><span id="local-6989586621679092021"><span class="annot"><span class="annottext">RemoteRef (ResumeContext ())
</span><a href="#local-6989586621679092021"><span class="hs-identifier hs-var">a</span></a></span></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Word8 -&gt; Put
</span><a href="../../binary/src/Data.Binary.Put.html#putWord8"><span class="hs-identifier hs-var">putWord8</span></a></span><span> </span><span class="annot"><span class="annottext">Word8
</span><span class="hs-number">38</span></span><span> </span><span class="annot"><span class="annottext">Put -&gt; Put -&gt; Put
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext ()) -&gt; Put
forall t. Binary t =&gt; t -&gt; Put
</span><a href="../../binary/src/Data.Binary.Class.html#put"><span class="hs-identifier hs-var">put</span></a></span><span> </span><span class="annot"><span class="annottext">RemoteRef (ResumeContext ())
</span><a href="#local-6989586621679092021"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-545"></span><span>
</span><span id="line-546"></span><span class="hs-comment">-- -----------------------------------------------------------------------------</span><span>
</span><span id="line-547"></span><span class="hs-comment">-- Reading/writing messages</span><span>
</span><span id="line-548"></span><span>
</span><span id="line-549"></span><span class="hs-keyword">data</span><span> </span><span id="Pipe"><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-var">Pipe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Pipe"><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-var">Pipe</span></a></span></span><span>
</span><span id="line-550"></span><span>  </span><span class="hs-special">{</span><span> </span><span id="pipeRead"><span class="annot"><span class="annottext">Pipe -&gt; Handle
</span><a href="GHCi.Message.html#pipeRead"><span class="hs-identifier hs-var hs-var">pipeRead</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Handle.Types.html#Handle"><span class="hs-identifier hs-type">Handle</span></a></span><span>
</span><span id="line-551"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="pipeWrite"><span class="annot"><span class="annottext">Pipe -&gt; Handle
</span><a href="GHCi.Message.html#pipeWrite"><span class="hs-identifier hs-var hs-var">pipeWrite</span></a></span></span><span> </span><span class="hs-glyph">::</span><span>  </span><span class="annot"><a href="../../base/src/GHC.IO.Handle.Types.html#Handle"><span class="hs-identifier hs-type">Handle</span></a></span><span>
</span><span id="line-552"></span><span>  </span><span class="hs-special">,</span><span> </span><span id="pipeLeftovers"><span class="annot"><span class="annottext">Pipe -&gt; IORef (Maybe ByteString)
</span><a href="GHCi.Message.html#pipeLeftovers"><span class="hs-identifier hs-var hs-var">pipeLeftovers</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IORef.html#IORef"><span class="hs-identifier hs-type">IORef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-553"></span><span>  </span><span class="hs-special">}</span><span>
</span><span id="line-554"></span><span>
</span><span id="line-555"></span><span id="local-6989586621679095138"><span class="annot"><a href="GHCi.Message.html#remoteCall"><span class="hs-identifier hs-type">remoteCall</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095138"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Message"><span class="hs-identifier hs-type">Message</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095138"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679095138"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-556"></span><span id="remoteCall"><span class="annot"><span class="annottext">remoteCall :: forall a. Binary a =&gt; Pipe -&gt; Message a -&gt; IO a
</span><a href="GHCi.Message.html#remoteCall"><span class="hs-identifier hs-var hs-var">remoteCall</span></a></span></span><span> </span><span id="local-6989586621679092013"><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092013"><span class="hs-identifier hs-var">pipe</span></a></span></span><span> </span><span id="local-6989586621679092012"><span class="annot"><span class="annottext">Message a
</span><a href="#local-6989586621679092012"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-557"></span><span>  </span><span class="annot"><span class="annottext">Pipe -&gt; Put -&gt; IO ()
</span><a href="GHCi.Message.html#writePipe"><span class="hs-identifier hs-var">writePipe</span></a></span><span> </span><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092013"><span class="hs-identifier hs-var">pipe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Message a -&gt; Put
forall a. Message a -&gt; Put
</span><a href="GHCi.Message.html#putMessage"><span class="hs-identifier hs-var">putMessage</span></a></span><span> </span><span class="annot"><span class="annottext">Message a
</span><a href="#local-6989586621679092012"><span class="hs-identifier hs-var">msg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-558"></span><span>  </span><span class="annot"><span class="annottext">Pipe -&gt; Get a -&gt; IO a
forall a. Pipe -&gt; Get a -&gt; IO a
</span><a href="GHCi.Message.html#readPipe"><span class="hs-identifier hs-var">readPipe</span></a></span><span> </span><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092013"><span class="hs-identifier hs-var">pipe</span></a></span><span> </span><span class="annot"><span class="annottext">Get a
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-559"></span><span>
</span><span id="line-560"></span><span id="local-6989586621679095135"><span class="annot"><a href="GHCi.Message.html#remoteTHCall"><span class="hs-identifier hs-type">remoteTHCall</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Class.html#Binary"><span class="hs-identifier hs-type">Binary</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095135"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHCi.Message.html#THMessage"><span class="hs-identifier hs-type">THMessage</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095135"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679095135"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-561"></span><span id="remoteTHCall"><span class="annot"><span class="annottext">remoteTHCall :: forall a. Binary a =&gt; Pipe -&gt; THMessage a -&gt; IO a
</span><a href="GHCi.Message.html#remoteTHCall"><span class="hs-identifier hs-var hs-var">remoteTHCall</span></a></span></span><span> </span><span id="local-6989586621679092008"><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092008"><span class="hs-identifier hs-var">pipe</span></a></span></span><span> </span><span id="local-6989586621679092007"><span class="annot"><span class="annottext">THMessage a
</span><a href="#local-6989586621679092007"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-562"></span><span>  </span><span class="annot"><span class="annottext">Pipe -&gt; Put -&gt; IO ()
</span><a href="GHCi.Message.html#writePipe"><span class="hs-identifier hs-var">writePipe</span></a></span><span> </span><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092008"><span class="hs-identifier hs-var">pipe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">THMessage a -&gt; Put
forall a. THMessage a -&gt; Put
</span><a href="GHCi.Message.html#putTHMessage"><span class="hs-identifier hs-var">putTHMessage</span></a></span><span> </span><span class="annot"><span class="annottext">THMessage a
</span><a href="#local-6989586621679092007"><span class="hs-identifier hs-var">msg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-563"></span><span>  </span><span class="annot"><span class="annottext">Pipe -&gt; Get a -&gt; IO a
forall a. Pipe -&gt; Get a -&gt; IO a
</span><a href="GHCi.Message.html#readPipe"><span class="hs-identifier hs-var">readPipe</span></a></span><span> </span><span class="annot"><span class="annottext">Pipe
</span><a href="#local-6989586621679092008"><span class="hs-identifier hs-var">pipe</span></a></span><span> </span><span class="annot"><span class="annottext">Get a
forall t. Binary t =&gt; Get t
</span><a href="../../binary/src/Data.Binary.Class.html#get"><span class="hs-identifier hs-var">get</span></a></span><span>
</span><span id="line-564"></span><span>
</span><span id="line-565"></span><span class="annot"><a href="GHCi.Message.html#writePipe"><span class="hs-identifier hs-type">writePipe</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Put.html#Put"><span class="hs-identifier hs-type">Put</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-566"></span><span id="writePipe"><span class="annot"><span class="annottext">writePipe :: Pipe -&gt; Put -&gt; IO ()
</span><a href="GHCi.Message.html#writePipe"><span class="hs-identifier hs-var hs-var">writePipe</span></a></span></span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span class="hs-special">{</span><span id="local-6989586621679092004"><span id="local-6989586621679092005"><span id="local-6989586621679092006"><span class="annot"><span class="annottext">Handle
IORef (Maybe ByteString)
pipeLeftovers :: IORef (Maybe ByteString)
pipeWrite :: Handle
pipeRead :: Handle
pipeLeftovers :: Pipe -&gt; IORef (Maybe ByteString)
pipeWrite :: Pipe -&gt; Handle
pipeRead :: Pipe -&gt; Handle
</span><a href="#local-6989586621679092004"><span class="hs-glyph hs-var hs-var hs-var hs-var hs-var hs-var">..</span></a></span></span></span></span><span class="hs-special">}</span><span> </span><span id="local-6989586621679092003"><span class="annot"><span class="annottext">Put
</span><a href="#local-6989586621679092003"><span class="hs-identifier hs-var">put</span></a></span></span><span>
</span><span id="line-567"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Bool
</span><a href="../../bytestring/src/Data.ByteString.Lazy.html#null"><span class="hs-identifier hs-var">LB.null</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092001"><span class="hs-identifier hs-var">bs</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">() -&gt; IO ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-568"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-569"></span><span>    </span><span class="annot"><span class="annottext">Handle -&gt; ByteString -&gt; IO ()
</span><a href="../../bytestring/src/Data.ByteString.Lazy.html#hPut"><span class="hs-identifier hs-var">LB.hPut</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679092005"><span class="hs-identifier hs-var">pipeWrite</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679092001"><span class="hs-identifier hs-var">bs</span></a></span><span>
</span><span id="line-570"></span><span>    </span><span class="annot"><span class="annottext">Handle -&gt; IO ()
</span><a href="../../base/src/GHC.IO.Handle.html#hFlush"><span class="hs-identifier hs-var">hFlush</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679092005"><span class="hs-identifier hs-var">pipeWrite</span></a></span><span>
</span><span id="line-571"></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-572"></span><span>  </span><span id="local-6989586621679092001"><span class="annot"><span class="annottext">bs :: ByteString
</span><a href="#local-6989586621679092001"><span class="hs-identifier hs-var hs-var">bs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Put -&gt; ByteString
</span><a href="../../binary/src/Data.Binary.Put.html#runPut"><span class="hs-identifier hs-var">runPut</span></a></span><span> </span><span class="annot"><span class="annottext">Put
</span><a href="#local-6989586621679092003"><span class="hs-identifier hs-var">put</span></a></span><span>
</span><span id="line-573"></span><span>
</span><span id="line-574"></span><span id="local-6989586621679095136"><span class="annot"><a href="GHCi.Message.html#readPipe"><span class="hs-identifier hs-type">readPipe</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.Internal.html#Get"><span class="hs-identifier hs-type">Get</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095136"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679095136"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-575"></span><span id="readPipe"><span class="annot"><span class="annottext">readPipe :: forall a. Pipe -&gt; Get a -&gt; IO a
</span><a href="GHCi.Message.html#readPipe"><span class="hs-identifier hs-var hs-var">readPipe</span></a></span></span><span> </span><span class="annot"><a href="GHCi.Message.html#Pipe"><span class="hs-identifier hs-type">Pipe</span></a></span><span class="hs-special">{</span><span id="local-6989586621679091989"><span id="local-6989586621679091990"><span id="local-6989586621679091991"><span class="annot"><span class="annottext">Handle
IORef (Maybe ByteString)
pipeLeftovers :: IORef (Maybe ByteString)
pipeWrite :: Handle
pipeRead :: Handle
pipeLeftovers :: Pipe -&gt; IORef (Maybe ByteString)
pipeWrite :: Pipe -&gt; Handle
pipeRead :: Pipe -&gt; Handle
</span><a href="#local-6989586621679091989"><span class="hs-glyph hs-var hs-var hs-var hs-var hs-var hs-var">..</span></a></span></span></span></span><span class="hs-special">}</span><span> </span><span id="local-6989586621679091988"><span class="annot"><span class="annottext">Get a
</span><a href="#local-6989586621679091988"><span class="hs-identifier hs-var">get</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-576"></span><span>  </span><span id="local-6989586621679091987"><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091987"><span class="hs-identifier hs-var">leftovers</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">IORef (Maybe ByteString) -&gt; IO (Maybe ByteString)
forall a. IORef a -&gt; IO a
</span><a href="../../base/src/GHC.IORef.html#readIORef"><span class="hs-identifier hs-var">readIORef</span></a></span><span> </span><span class="annot"><span class="annottext">IORef (Maybe ByteString)
</span><a href="#local-6989586621679091989"><span class="hs-identifier hs-var">pipeLeftovers</span></a></span><span>
</span><span id="line-577"></span><span>  </span><span id="local-6989586621679091985"><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString)
</span><a href="#local-6989586621679091985"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Handle
-&gt; Get a -&gt; Maybe ByteString -&gt; IO (Maybe (a, Maybe ByteString))
forall a.
Handle
-&gt; Get a -&gt; Maybe ByteString -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="GHCi.Message.html#getBin"><span class="hs-identifier hs-var">getBin</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679091991"><span class="hs-identifier hs-var">pipeRead</span></a></span><span> </span><span class="annot"><span class="annottext">Get a
</span><a href="#local-6989586621679091988"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091987"><span class="hs-identifier hs-var">leftovers</span></a></span><span>
</span><span id="line-578"></span><span>  </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString)
</span><a href="#local-6989586621679091985"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-579"></span><span>    </span><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">IOError -&gt; IO a
forall a e. Exception e =&gt; e -&gt; a
</span><a href="../../base/src/GHC.Exception.html#throw"><span class="hs-identifier hs-var">throw</span></a></span><span> </span><span class="annot"><span class="annottext">(IOError -&gt; IO a) -&gt; IOError -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-580"></span><span>      </span><span class="annot"><span class="annottext">IOErrorType -&gt; String -&gt; Maybe Handle -&gt; Maybe String -&gt; IOError
</span><a href="../../base/src/System.IO.Error.html#mkIOError"><span class="hs-identifier hs-var">mkIOError</span></a></span><span> </span><span class="annot"><span class="annottext">IOErrorType
</span><a href="../../base/src/System.IO.Error.html#eofErrorType"><span class="hs-identifier hs-var">eofErrorType</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;GHCi.Message.remoteCall&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Handle -&gt; Maybe Handle
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679091991"><span class="hs-identifier hs-var">pipeRead</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-581"></span><span>    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679091980"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679091980"><span class="hs-identifier hs-var">result</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679091979"><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091979"><span class="hs-identifier hs-var">new_leftovers</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-582"></span><span>      </span><span class="annot"><span class="annottext">IORef (Maybe ByteString) -&gt; Maybe ByteString -&gt; IO ()
forall a. IORef a -&gt; a -&gt; IO ()
</span><a href="../../base/src/GHC.IORef.html#writeIORef"><span class="hs-identifier hs-var">writeIORef</span></a></span><span> </span><span class="annot"><span class="annottext">IORef (Maybe ByteString)
</span><a href="#local-6989586621679091989"><span class="hs-identifier hs-var">pipeLeftovers</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091979"><span class="hs-identifier hs-var">new_leftovers</span></a></span><span>
</span><span id="line-583"></span><span>      </span><span class="annot"><span class="annottext">a -&gt; IO a
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679091980"><span class="hs-identifier hs-var">result</span></a></span><span>
</span><span id="line-584"></span><span>
</span><span id="line-585"></span><span id="local-6989586621679095130"><span class="annot"><a href="GHCi.Message.html#getBin"><span class="hs-identifier hs-type">getBin</span></a></span><span>
</span><span id="line-586"></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Handle.Types.html#Handle"><span class="hs-identifier hs-type">Handle</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.Internal.html#Get"><span class="hs-identifier hs-type">Get</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679095130"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span>
</span><span id="line-587"></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679095130"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span><span>
</span><span id="line-588"></span><span>
</span><span id="line-589"></span><span id="getBin"><span class="annot"><span class="annottext">getBin :: forall a.
Handle
-&gt; Get a -&gt; Maybe ByteString -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="GHCi.Message.html#getBin"><span class="hs-identifier hs-var hs-var">getBin</span></a></span></span><span> </span><span id="local-6989586621679091969"><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679091969"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span id="local-6989586621679091968"><span class="annot"><span class="annottext">Get a
</span><a href="#local-6989586621679091968"><span class="hs-identifier hs-var">get</span></a></span></span><span> </span><span id="local-6989586621679091967"><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091967"><span class="hs-identifier hs-var">leftover</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091967"><span class="hs-identifier hs-var">leftover</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Get a -&gt; Decoder a
forall a. Get a -&gt; Decoder a
</span><a href="../../binary/src/Data.Binary.Get.html#runGetIncremental"><span class="hs-identifier hs-var">runGetIncremental</span></a></span><span> </span><span class="annot"><span class="annottext">Get a
</span><a href="#local-6989586621679091968"><span class="hs-identifier hs-var">get</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-590"></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-591"></span><span>   </span><span id="local-6989586621679091966"><span class="annot"><span class="annottext">go :: Maybe ByteString -&gt; Decoder a -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="#local-6989586621679091966"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#Done"><span class="hs-identifier hs-type">Done</span></a></span><span> </span><span id="local-6989586621679091963"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091963"><span class="hs-identifier hs-var">leftover</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int64
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679091962"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679091962"><span class="hs-identifier hs-var">msg</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-592"></span><span>     </span><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString) -&gt; IO (Maybe (a, Maybe ByteString))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(a, Maybe ByteString) -&gt; Maybe (a, Maybe ByteString)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679091962"><span class="hs-identifier hs-var">msg</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Bool
</span><a href="../../bytestring/src/Data.ByteString.html#null"><span class="hs-identifier hs-var">B.null</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091963"><span class="hs-identifier hs-var">leftover</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Maybe ByteString
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091963"><span class="hs-identifier hs-var">leftover</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-593"></span><span>   </span><span class="annot"><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#Done"><span class="hs-identifier hs-type">Done</span></a></span><span class="hs-special">{</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ErrorCall -&gt; IO (Maybe (a, Maybe ByteString))
forall e a. Exception e =&gt; e -&gt; IO a
</span><a href="../../base/src/GHC.IO.html#throwIO"><span class="hs-identifier hs-var">throwIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ErrorCall
</span><a href="../../base/src/GHC.Exception.html#ErrorCall"><span class="hs-identifier hs-var">ErrorCall</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;getBin: Done with leftovers&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-594"></span><span>   </span><span class="annot"><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679091959"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091959"><span class="hs-identifier hs-var">leftover</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#Partial"><span class="hs-identifier hs-type">Partial</span></a></span><span> </span><span id="local-6989586621679091957"><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a
</span><a href="#local-6989586621679091957"><span class="hs-identifier hs-var">fun</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-595"></span><span>     </span><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a
</span><a href="#local-6989586621679091957"><span class="hs-identifier hs-var">fun</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ByteString -&gt; Maybe ByteString
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091959"><span class="hs-identifier hs-var">leftover</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-596"></span><span>   </span><span class="annot"><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#Partial"><span class="hs-identifier hs-type">Partial</span></a></span><span> </span><span id="local-6989586621679091956"><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a
</span><a href="#local-6989586621679091956"><span class="hs-identifier hs-var">fun</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-597"></span><span>     </span><span class="hs-comment">-- putStrLn &quot;before hGetSome&quot;</span><span>
</span><span id="line-598"></span><span>     </span><span id="local-6989586621679091955"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091955"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Handle -&gt; Int -&gt; IO ByteString
</span><a href="../../bytestring/src/Data.ByteString.html#hGetSome"><span class="hs-identifier hs-var">B.hGetSome</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679091969"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">32</span></span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1024</span></span><span class="hs-special">)</span><span>
</span><span id="line-599"></span><span>     </span><span class="hs-comment">-- printf &quot;hGetSome: %d\n&quot; (B.length b)</span><span>
</span><span id="line-600"></span><span>     </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; Bool
</span><a href="../../bytestring/src/Data.ByteString.html#null"><span class="hs-identifier hs-var">B.null</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091955"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-601"></span><span>        </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString) -&gt; IO (Maybe (a, Maybe ByteString))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe (a, Maybe ByteString)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-602"></span><span>        </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a -&gt; IO (Maybe (a, Maybe ByteString))
</span><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe ByteString
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe ByteString -&gt; Decoder a
</span><a href="#local-6989586621679091956"><span class="hs-identifier hs-var">fun</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ByteString -&gt; Maybe ByteString
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091955"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-603"></span><span>   </span><span class="annot"><a href="#local-6989586621679091966"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span id="local-6989586621679091952"><span class="annot"><span class="annottext">Maybe ByteString
</span><a href="#local-6989586621679091952"><span class="hs-identifier hs-var">_lft</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../binary/src/Data.Binary.Get.html#Fail"><span class="hs-identifier hs-type">Fail</span></a></span><span> </span><span id="local-6989586621679091950"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679091950"><span class="hs-identifier hs-var">_rest</span></a></span></span><span> </span><span id="local-6989586621679091949"><span class="annot"><span class="annottext">Int64
</span><a href="#local-6989586621679091949"><span class="hs-identifier hs-var">_off</span></a></span></span><span> </span><span id="local-6989586621679091948"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679091948"><span class="hs-identifier hs-var">str</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-604"></span><span>     </span><span class="annot"><span class="annottext">ErrorCall -&gt; IO (Maybe (a, Maybe ByteString))
forall e a. Exception e =&gt; e -&gt; IO a
</span><a href="../../base/src/GHC.IO.html#throwIO"><span class="hs-identifier hs-var">throwIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ErrorCall
</span><a href="../../base/src/GHC.Exception.html#ErrorCall"><span class="hs-identifier hs-var">ErrorCall</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;getBin: &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679091948"><span class="hs-identifier hs-var">str</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-605"></span></pre></body></html>